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Section  1 


INTRODUCTION 

Briefly,  the  existing  procedure  for  the  acceptance  of  propellants 
begins  with  closed  bomb  testing  during  manufacture.  Batches  of  propellant  are 
classified  according  to  relative  burn  rates  and  pressure  levels  exhibited 
when  tested  against  a standard  propellant  lot.  The  batches  to  be  blended  to 
make  up  a lot  of  propellant  are  selected  according  to  the  relative  burning 
characteristics  measured  in  the  closed  bomb.  This  blending  process  has 
resulted  in  a stable  product  with  slight  variations  between  lots.  The 
finished  lot  is  sampled  and  tested  in  the  closed  bomb.  An  approximate  charge 
weight  is  determined  based  upon  the  closed  bomb  test  results.  The  propellant 
is  then  loaded  into  charges  at  this  weight  and  fired  using  standard  metal 
parts  and  igniters.  During  this  propellant  acceptance  test,  muzzle  velocities 
and  peak  chamber  pressures  are  measured.  Propellant  acceptance  is  based  upon 
achievement  of  satisfactory  muzzle  velocity  and  pressure  levels  with  a pro- 
pellant charge  volume  below  a specified  maximum  value.  Charge  assessment 
(the  determination  of  the  charge  weight  necessary  to  provide  a predefined 
muzzle  velocity)  is  also  determined  from  the  acceptance  test  data.  If  a 
propellant  lot  does  not  exhibit  satisfactory  performance  characteristics,  it 
is  rejected. 

The  first  modernized  propellant  manufacturing  facility  wherein 
propellant  is  produced  on  a continuous  production  line  is  currently  being 
constructed.  A candidate  item  for  production  is  Ml  propellant  for  the  M67 
charge  of  the  M103- 105mm  howitzer.  The  Army  project  entitled  "Acceptance  of 
Propellant  Produced  via  the  Continuous  Process"  has  a goal  of  developing  the 
acceptance  test  plan  for  the  CASBL.  Obtaining  the  knowledge  of  which  pro- 
pellant parameters  affect  the  interior  ballistics  cycle  and  the  ranking  of 
parameters  by  sensitivity  is  a crucial  plateau  which  must  be  reached. 

An  an  aid  in  determining  the  sensitivity  of  the  interior  ballistics 
cycle  to  propellant  characteristics  and  for  the  development  of  improved  under- 
standing of  propellant  interior  ballistics  functions,  Calspan  has  developed 
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a mathematical  simulation  of  the  175mm  gun  system.  This  model  has  been  used 
to  study  the  effect  of  the  propellant  ignition  process  on  the  entire  interior 
ballistics  cycle.  Furthermore,  the  model  has  been  shown  to  have  the  ability 
to  predict  non-normal,  even  hazardous,  combustion  shock  wave  generation  in 
the  bed  of  propellant. 

The  model  was  also  modified  to  incorporate  those  features  unique  to 
the  105mm  howitzer.  Together  these  models  provide  the  ability  to  represent 
most  U.S.  Army  artillery  configurations  by  simply  changing  input  parameters. 

Extensive  use  of  the  models  and  recent  developments  found  in  the 
literature  have  revealed  areas  in  the  models  that  require  improvement.  This 
program  is  devoted  to  upgrading  both  the  175mm  and  105mm  howitzer  codes, 
although  primary  emphasis  was  given  to  the  105mm  howitzer  code.  The  primary 
items  addressed  during  this  program  were: 

1.  Reformulation  of  the  governing  equations. 

2.  Change  of  equation  of  state  and  use  of  BLAKE  code-- 
generated  inputs. 

3.  Improvement  in  treatment  of  the  dual-granulation 
propellant  movement  and  combustion  in  the  barrel. 

4.  Investigation  of  discontinuity  and  other  deviations 
in  computed  pressure- time  curve  from  the  experimental 
curve . 

5.  Inclusion  of  chamber  heat  loss. 

6.  Improvement  in  treatment  of  propellant  motion  and  bed 
compaction. 
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Section  2 


MODEL  STATUS  | 

2.1  OVERVIEW  ) 

i 

The  Calspan  artillery  codes  were  reviewed  and  modified  with  regard  j 

to  the  areas  listed  in  the  Introduction.  This  section  will  describe  the  current  j 

1 

status  of  the  model  with  regard  to  its  formulation,  treatment  of  the  various  j 

empirical  functions,  and  computational  procedures.  This  report  is  written  \ 

with  respect  to  work  accomplished  on  the  105mm  howitzer  model,  originally  | 

described  in  Ref.  1.  However,  the  status  of  the  model  as  presented  in  this  | 

report  also  applies  to  that  of  the  175mm  gun--155mm  howitzer  code,  as  described  1 

in  References  2 and  3.  The  basic  structure  of  the  105mm  howitzer  code  is  given 
in  the  next  section  to  provide  continuity  with  previous  works. 

2.2  REVIEW  OF  MODEL  STRUCTURE 

The  mathematical  models,  which  consists  of  two  major  routines, 
chamber  and  barrel,  with  domains  illustrated  in  Figure  1,  is  described  in 
Reference  1.  The  following  section,  taken  from  the  Reference  1,  is  given  here 
to  provide  necessary  background  for  the  discussion  which  follows. 

2.2.1 General  105mm  Howitzer  Configuration 

The  general  configuration  of  the  105mm  howitzer  is  shown  in  Figure  2. 

The  complete  round  consists  of  a steel  cartridge  case,  primer,  propellant 
charge,  and  shell.  The  primer  is  made  of  brass  or  steel  and  is  mounted  to 
the  base  of  the  cartridge  case.  The  propellant  charge  is  contained  in  a 
string  of  up  to  seven  small  rectangular  bags  that  fit  loosely  in  the  case 
around  the  primer.  The  shell  fits  loosely  in  the  cartridge  case  and  provides 
the  major  portion  of  the  cross-sectional  area  for  the  pressure  to  act  against. 

The  rotating  band  performs  a sealing  function  as  well  as  the  means  for 
rotational  acceleration.  Any  leaks  past  the  band  tend  to  reduce  system 
efficiency,  but  since  this  band  undergoes  an  interference  fit  as  it  enters 
the  barrel,  the  seal  is  assumed  to  be  tight,  allowing  negligible  loss  of 
gas.  When  loaded,  the  shell  is  not  rammed  and  must  travel  a short  distance 


5 


Figure  1 SCHEMATIC  DIAGRAM  OF  THE  105  mm  HOWITZER  SYSTEM  ILLUSTRATING 
THE  DOMAINS  OF  THE  TWO  COMPUTER  ROUTINES 


before  the  rotating  band  engages  the  rifling.  It  is  assumed  that  the  blow-by 
that  occurs  here  is  also  negligible,  or  at  least  consistent  from  round  to 
round. 


The  primer  is  a long  tube  with  a pattern  of  holes.  The  tube  is 
initially  filled  with  a charge  of  black  powder  which  is  initiated  by  firing 
a percussion- sensitive  element.  The  primer  tube  has  a wax  paper  liner  which 
allows  high  pressures  to  be  reached  before  the  tube  is  vented.  This  provides 
a more  positive  ignition. 

The  propellant  charge  consists  of  seven  bags  sewn  together  in  a 
string.  Before  firing,  the  projectile  is  removed  and  the  charge  is  adjusted 
by  removing  bags  until  the  desired  velocity  level  is  reached.  The  first  two 
bags  contain  0.0135  in.  web  single-perf  Ml  propellant  while  the  remaining 
five  bags  contain  0.0245  in.  web  multiperf  Ml  powder.  The  bags  are  contoured 
to  fit  the  case  and  can  be  dropped  into  the  case  in  a random  fashion.  The 
charge  rests  on  the  bottom  of  the  case  and  there  is  considerable  free  volume 
between  the  charge  and  the  projectile. 

The  actual  gun  system  firing  sequence  is  initiated  when  the 
percussion  element  is  fired  and  causes  a sequence  of  events  resulting  in 
black  powder  ignition.  The  burning  black  powder  causes  the  pressure  to  rise 
and  eventually  exceed  the  strength  of  the  paper  liner.  Hot  gas  and  burning 
particles  generated  by  the  burning  black  powder  flow  through  primer  tube 
holes  and  into  the  end  of  the  propellant  bed.  The  grains  in  the  main  pro- 
pellant charge  are  heated  by  this  flow  and  eventually  become  ignited.  After 
ignition,  the  propellant  burns  at  a rate  governed  by  local  conditions.  Gas 
flow  through  the  propellant  creates  forces  that  result  in  movement  of  the 
bed. 

As  the  pressure  builds  up  in  the  system,  the  force  created  by 
pressure  acting  on  the  projectile  base  causes  it  to  move,  engage  the  rifling, 
and  eventually  overcome  the  initial  barrel  restraining  force.  This  restraining 
force  is  a result  of  the  material  extrusion/shearing  phenomena  that  occur 
while  the  rotating  band  is  engraved.  When  this  engraving  force  has  been 
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exceeded  by  the  pressure,  the  projectile  begins  significant  acceleration. 

As  the  projectile  travels  through  the  barrel,  it  is  accelerated  in  a rota- 
tional direction  at  a rate  proportional  to  the  axial  acceleration.  This, 
along  with  friction  and  engraving  forces,  constitutes  the  projectile  retarding 
forces . 


Gas  and  propellant  flow  into  the  barrel  behind  the  moving  projectile 
The  gas  loses  energy  and  momentum  through  the  boundary  layer  while  it  does 
work  in  overcoming  the  retarding  forces.  The  sequence  of  events  of  interest 
in  this  model  terminates  when  the  projectile  has  passed  from  the  barrel. 

2.2.2  Chamber  Routine 


The  Chamber  Routine  calculates  all  phenomena  concerned  with  ignition 
gas  generation,  and  flow  inside  the  chamber  of  the  105mm  howitzer.  The 
routine  is  basically  the  same  as  the  corresponding  routine  for  the  175mm  gun 
code.  The  grid  formulation  consists  of  parallel  one-dimensional  networks, 
one  to  describe  the  primer  tube  and  one  for  the  main  charge  as  shown  in  Figure 
3.  This  system  has  many  advantages  such  as  flexibility  in  defining  the  radial 
dimension  of  each  grid  network  as  a function  of  axial  position  and  arbitrary 
selection  of  grid  size.  Gas  is  allowed  to  flow  between  grid  networks  in  a 
manner  that  simulates  flow  througli  primer  tube  holes,  thereby  achieving  a 
semblance  of  radial  mass  and  energy  transport. 

Use  of  a one-dimensional  grid  system  places  some  constraints  on 
positioning  of  the  propellant  charge.  Variations  in  propellant  or  propellant 
bed  density  can  be  expressed  only  as  functions  of  axial  location.  The  seven 
zone  propellant  charge  with  two  different  grain  configurations  is  loaded  in 
a random  configuration,  as  mentioned  previously.  One  choice  for  positioning 
the  charge  in  the  code  is  to  distribute  each  zone  over  a length  of  the  case 
with  zones  overlapping.  Another  is  to  assume  a structured  charge  that  is 
sequentially  loaded  according  to  zone  number,  beginning  with  zone  1 at  the 
breech  end  of  the  case.  The  latter  charge  configuration  was  chosen  for  the 
105mm  howitzer  model. 
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PROPELLANT  ZONES  1-7— 7 /“BEGINNING  OF  BARREL  MATRIX 


The  basic  equations  of  fluid  motion  with  terms  to  take  the  porous,  \ 

variable  area  bed  into  account  are  used  to  calculate  flow  propagation  through  ] 

the  bed.  These  equations  are  the  well-known,  universal  relationships  that  ] 

express  conservation  of  mass,  momentum,  and  energy.  These  equations  contain  i 

terms  to  include  gas  generation  by  burning  propellant  and  other  source  or 
sink  terms  such  as  heat  transfer  losses  and  mass  flow  through  primer  tube 

holes.  In  addition,  equations  expressing  conservation  of  mass  and  momentum  ' 

are  included  in  order  to  express  movement  of  the  propellant  bed.  These  equa-  j 

tions  are  solved  in  such  a way  that  no  mixing  of  the  two  grain  configurations 
is  allowed. 

The  output  of  the  primer  percussion  element  is  not  specifically 
represented  in  the  current  model.  Its  effects  are  represented  by  assuming  the 
black  powder  in  the  first  primer  grid  is  ignited  initially.  The  gas  gene- 
rated by  this  powder  flows  through  the  tube  and  ignites  the  remainder  of  the 
primer  charge. 

The  treatment  of  flow  through  primer  tube  holes  has  been  simplified 
but  still  retains  the  essential  features.  The  model  considers  an  arbitrary 
number  of  rows  of  exhaust  ports,  each  row  consisting  of  the  holes  (two  holes 
per  row  for  the  105mm  howitzer)  at  a given  axial  station.  Each  row  is 
treated  as  a continuous  flow  area  rather  than  as  discrete  holes,  since  the 
latter  would  require  the  full  three-dimensional  treatment.  Gas  flows  sonicly 
or  subsonicly  through  the  holes,  according  to  the  existing  pressure  ratio 
across  the  hole  after  a pressure  sufficient  to  cause  liner  failure  has  been 
reached  at  the  hole  location. 

The  breech  end  of  the  chamber  is  assumed  to  be  reflective;  that 
is,  waves  are  reflected  with  no  losses.  The  multiple  one -dimensional  for- 
mulation requires  no  specification  of  wall  boundary  conditions.  The  downstream 
end  of  the  chamber  is  non-ref lective  and  allows  a smooth  flow  of  gas  into 
the  barrel  after  the  projectile  has  started  to  move.  The  projectile  base  is 
assumed  to  be  reflective  so  that  waves  are  transmitted  from  the  breech  to 
the  base. 
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Basic  inputs  for  the  Chamber  Routine  include  the  chamber  and 
propelling  charge  geometry  pertinent  to  propellant  ignition,  gas  generation 
and  flow,  and  propellant  geometry  and  burning  characteristics.  Essentially 
all  elements  of  the  igniter  system  that  could  conceivably  influence  gun  per- 
formance were  included  in  the  mathematical  model.  Virtually  none  of  these 
elements  is  built  into  the  program  but,  rather,  is  an  input  that  can  be 
varied  independently  from  the  others. 

2.2.3 Barrel  Routine 

The  Barrel  Routine  accepts  the  flow  of  gas  and  burning  propellant 
from  the  chamber  and  performs  the  unsteady  gas  flow  and  projectile  motion 
calculations  until  the  projectile  eventually  passes  from  the  barrel.  These 
calculations  are  performed  in  a one-dimensional  framework  which  assumes  that 
all  two-dimensional  effects  can  be  assigned  to  boundary  layer-type  calculations. 
The  grid  network  used  to  represent  the  barrel  is  shown  in  Figure  4. 

The  one-dimensional  equations  of  fluid  motion,  modified  to  take  the 
presence  of  solid  propellant  grains  into  account,  are  used  to  calculate  the 
gas  flow.  These  equations  express  conservation  of  mass,  momentum,  and  energy 
for  each  grid  and  include  losses  of  momentum  and  energy  as  well  as  the  mass 
flow  area  constriction  due  to  viscous  effects  of  the  boundary  layer  in  the 
barrel  and  heat  transfer  to  the  barrel  wall.  Propellant  movement  is  cal- 
culated from  pressure  gradients  and  drag  forces  exerted  by  gas  flow.  This 
is  simplified  by  allowing  propellant  to  move  in  one  direction,  away  from  the 
breech . 


The  individual  items  that  influence  projectile  motion  have  been 
accounted  for  separately  rather  than  being  lumped  into  an  effective  projec- 
tile mass  or  resistance  function.  The  main  propelling  force  is  that  due  to 
pressure  acting  on  the  projectile  base.  Retarding  forces  are  considered 
individually  and  consist  of  the  force  required  to  engrave  the  rotating  band, 
the  component  of  the  accelerating  force  consumed  by  rotational  acceleration 
and  frictional  resistance.  The  engraving  force  is  a result  of  the  extrusion 
process  and  subsequent  slip  fit/galling  condition  encountered  by  the  projectile 


Figure  4 GRID  MATRIX  FOR  THE  BARREL  OF  THE  105  mm  HOWITZER 
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rotating  band  as  it  begins  motion  through  the  barrel.  Rotational  acceleration 
involves  tlie  axial  moment  of  inertia  and  the  twist  of  the  rifling.  It 
actually  becomes  a component  of  the  axial  acceleration  that  requires  some 
of  the  pressure  force.  In  this  sense,  it  acts  as  a retarding  mechanism. 

The  frictional  force  is  assumed  to  occur  as  a result  of  rotational  accelera- 
tion. The  torque  required  for  rotational  acceleration  is  supplied  by  a 
resultant  force  normal  to  the  rifling.  The  retarding  force  occurs  as  a 
result  of  the  coefficient  of  friction  between  the  rotating  band  and  the 
rifling  and  this  normal  force.  Another  resistance  force  that  has  been 
included  but  is  probably  not  too  significant  for  the  105mm  howitzer  is  the 
pressure  head  that  is  accumulated  ahead  of  the  projectile. 

Barrel  Routine  calculations  are  initiated  with  the  projectile  at 
rest  and  located  at  the  first  or  second  grid  of  the  barrel  network,  which- 
ever is  specified.  When  the  pressure  force  exceeds  the  assumed  initial 
resistance  force,  the  projectile  starts  to  move.  As  the  projectile  travels 
through  the  barrel,  grids  are  added  to  the  network.  Initially,  a relatively 
small  grid  size  is  required  in  order  to  supply  the  required  computational 
accuracy.  As  the  projectile  moves  through  the  barrel,  the  number  of  grids 
in  the  entire  system  is  cut  in  half  from  time  to  time,  greatly  accelerating 
the  calculation  while  providing  acceptable  accuracy. 

The  one-dimensional  barrel  calculations  require  no  specification 
of  radial  boundary  conditions.  The  initial  grid  of  the  barrel  network  is 
common  with  the  last  row  of  chamber  grids  and  is  loaded  with  weighted 
averages  of  parameters  from  these  chamber  grids.  Therefore,  no  specific 
boundary  conditions  are  applied  to  the  barrel  entrance.  The  barrel  grid 
network  is  terminated  at  the  projectile  base,  which  is  a reflective  boundary 
moving  at  the  projectile  velocity. 

Inputs  to  the  Barrel  Routine  consist  mainly  of  projectile  charac- 
teristics, which  include  equivalent  pressures  to  represent  retarding  forces, 
mass  and  moment  of  inertia,  representative  base  radius,  and  friction  coeffi- 
cient. Barrel  length  is  an  input  but  the  equations  describing  the  twist  of  the 
rifling  are  built  into  the  logic. 
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2.3 


GOVERNING  EQUATIONS 


The  governing  equations  for  the  Calspan  interior  ballistics  codes 
have  been  reviewed  in  light  of  the  JANNAF  Combustion  Workshop  held  in  conjunc- 
tion with  the  12th  JANNAF  Combustion  Meeting  in  August  1975.  The  derivations 
4 5 

of  Culick  and  Gough  have  been  reviewed  in  order  to  obtain  different  perspec- 
tive on  the  two-phase  flow  problem.  This  effort  has  resulted  in  some  changes 
to  the  Calspan  governing  equations. 

In  addition,  the  equation  of  state  has  been  changed  to  the  Lennard- 
Jones  6-12  potential.  This  change  necessitated  revision  of  the  energy 
equation.  This  equation,  written  in  the  form 

^ 

where  the  co- volume,  , is  given  by 

7=  Ao  + Al  p -I-  Azp^  -t  As 

with  cubic  fit  co-volume  coefficients  as  generated  by  the  BLAKE  code,  is 
thought  to  be  the  most  accurate  equation  of  state  for  a wide  range  of  pressures, 
including  the  extremely  high  pressures  encountered  in  gun  applications.  This 
change  necessitated  revision  of  the  form  of  the  energy  equation,  since  the 
previous  form  incorporated  the  state  equation. 

The  governing  equations  express  conservation  of  mass,  momentum, 
and  energy  in  a two-phase  compressible  flow  system.  This  two-phase  system 
is  assumed  to  be  a continuum  that  represents  interactive  flow  through  a 
mobile  bed  of  propellant.  This  formulation  assumes  that  the  large  propellant 
grains  can  be  treated  in  the  same  manner  as  a molecule  of  air.  This  is  not 
realistic  and  the  inequality  is  reflected  at  various  points  in  the  derivation 
as  will  be  noted  in  the  subsequent  discussion. 

Continuity  Equations 

The  continuity  equations,  which  represent  conservation  of  solid  and 
gaseous  mass,  are  unchanged.  These  equations  for  a one-dimensional  system  are; 


13 


Gas  Phase: 


2t 


X ax 


comb 


Solid  Phase; 


it 


- tn 


Ceinh 


where  m 


is  the  rate  of  propellant  mass  burned  and  m and  m represent 


comb  ‘ ‘ ■ ■ "s  sp 

respective  quantities  of  gas  and  solid  added  through  the  boundaries  of  the 

parallel  grid  networks.  The  propellant  density, in  the  solid  phase  equa- 
tion is  treated  as  a constant  in  the  Calspan  codes. 


Momentum  Equations 

% 

The  equations  that  express  conservation  of  momentum  in  a one- 
dimensional two-phase  flow  system  were  rederived  along  the  lines  of  Culick^. 
The  elemental  volume  for  this  derivation  is: 


h t, 


■fA,  <l>,  t>,  f>,  lA, 


X-I-AX 


The  total  momentum  contained  within  this  volume  at  any  instant  is 
A Ax  [ ^ f n + 0 - i)  I’p  tAf,  ] 


where  A is  the  average  cross-sectional  area  of  the  grid  and  <j)^  ^ ^ u <7^ 
are  the  average  flow  parameters  in  the  elemental  volume  and  the  propellant 
density,  is  assumed  to  be  constant. 

The  net  momentum  change  within  the  elemental  volume  due  to  flow 
through  the  end  boundaries  is 

lAct>r A ( /-<(>) 

The  parameters  in  this  relationship  are  those  that  exist  exactly  at  the  end 
faces  of  the  elemental  volume  and  are  not  average  quantities. 
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The  pressure  forces  acting  on  the  elemental  volume  are  those  forces 
acting  on  the  end  face  plus  the  axial  component  of  pressure  acting  on  the 
side  walls  of  the  volume.  The  pressure  force  is  written  as 

If  the  pressure,  p,  and  the  area  of  the  element.  A,  are  assumed  to 
vary  linearly  over  then 

P ^ Py..  + 

and  ^ ^ 

After  integration,  and  substitution  of  C = «nd  K - ^ over  the  length 

tL  K dK 

of  the  elemental  volume,  the  net  pressure  force  on  the  volume  is 

-A,  d±  -4,)^ 

d*  dx  Z 

or  - A d£  dx 
dx 

This  term  is  separated  into  components  for  each  phase  when  the  global  momentum 
equation  is  separated. 

The  stress  force  supported  by  the  comjiacted  bed  of  propellant  is 

This  is  the  only  solid  propellant  stress  force  included  in  the  model  which 
means  that  a free  slip  condition  exists  at  the  wall. 

Gas  and  solids  added  to  the  element  through  the  boundary  add  to  the 
total  momentum  in  the  element  if  they  have  a velocity  component  common  to 
that  of  the  one-dimensional  element.  Also,  momentum  is  lost  if  moving  gas 
or  solid  is  allowed  to  flow  from  the  element.  These  source  or  sink  terms  are 
written  as: 

where  u^  and  u^^  are  appropriate  velocities. 

< 

i 
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Combining  these  terms,  dividing  by  x and  A,  the  global  momentum 
equation  that  expresses  the  rate  of  momentum  change  in  an  elemental  volume  is: 

= --L  MA  (bf’u'- + A(i-<f>) 

AH  ir  r ^ 


~T  y*  M<ro-<>jy  + 


Letting  ^ = i/*  ^ + Ci~<p)^  and  separating  the  terms  of  the  equation 

with  regard  to  solid  and  gas  phase  components: 

Gas  Phase: 

j_jAij)fu^i  + (P  = F 

Solid  Phase; 

->■  X[A(i-'i>)  ] +(i-4>]^  (>-*)] 

^ ^ ^ J X 

~ >^sp  = -F 

The  term  F represents  those  forces  internal  to  the  elemental  volume  that 
result  from  interaction  between  the  two  phases,  which  is  simply  an  exchange 
of  momentum  between  the  phases.  One  such  interaction  is  drag  caused  by 
resistance  to  flow  of  one  phase  relative  to  the  other. 

= f ( i , d , 4'j  f , 

The  other  is  a result  of  the  velocity  of  burning  propellant  grains.  At  the 
instant  a volume  of  solid  propellant  burns,  the  gas  generated  has  momentum 
equal  to  Am  • u^,  which  is  properly  added  to  that  of  the  gas  in  the  elemental 
volume.  At  the  same  time,  the  solid  propellant  has  lost  this  amount  of 
There fore 


momentum.  Therefore,  the  rate  of  momentum  exchange  is  m ,u  and 

® comb  p 


where 


m 


comb  = 3 ^ 3'*"’  3^‘’  j <i>) 


The  complete  momentum  equations  in  conservative  form  are  then: 
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Gas  Phase: 

± ( (Pf>u)  ^ 2.1a  ^ - - Ox 

it  A ix 

Solid  Phase: 

A[(i~<f>)f'p‘^p]  -L  = Ox 


it 


iK 


Energy  Equation  * 

The  energy  equation  is  derived  in  terms  of  the  total  internal  energy, 
thermal  plus  kinetic, 

E = e + nyzjJ 

Ep  = 


The  terms  of  the  global  energy  equation  are  as  follows: 

Total  internal  energy  in  the  elemental  volume: 

AaxI^C^  + ] 

Energy  flux: 

lA<pfEtA  -h  A(i-<l>)f‘pEf,  - lA4fEu  + ^ Cl-p) 

Flow  work: 

[A<i>f‘tA  -h  A (/-^)  fi  UpJ^.  -[Atf>f>oi  A 
Chemical  energy  due  to  combustion: 

>^co^k  ^che^ 

Heat  transfer  from  element  (to  wall): 

AX 

Work  done  in  compacting  solid  phase: 
kVc  A Ax 
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Source  and  sink  terms : 

f‘p 

After  assembling  these  terms  and  dividing  by  A Ax  the  global 
energy  equation  in  conservative  form  is: 

^l<t)f>£  + (i- (p)  ^ I A<i>f>i4  E.  -h  A(i~(p)fpUpEfJ  +fLA[A^f>u-hAO-(/)^u.] 

n dX  Aj 

- ^co^b  ^Ck.^  + Qfi  + K:  - //,  - ^ O 

A fp 

This  equation  is  then  separated  into  gas  and  solid  phase  energy  equations: 

Gas  Phase : 

^l(|)f>Ej  +±A[ApfuEj  -h^^lAPpn  +■  AO-fi)f>Up]  - 
- ^ 

Solid  Phase: 

lUi-<t>)fpEf.]  [^(l-4>)fp£pUp]  -yVc  - = - a 

where  Q is  the  term  representing  interaction  between  the  gas  and  solid  phases 
within  the  elemental  volume.  These  interaction  terms  include: 

Heat  transfer  between  gas  and  solid  phases 

Q>. 

Transfer  of  kinetic  energy  from  solid  to  gas  phase  during  combustion 

/z-iJ 

COMb  P 

Work  done  by  gas  drag  on  moving  propellant 
D»  lA  f 

~Y~ 

Therefore,  the  complete  gas  phase  energy  equation  is 

-h  ' A[A(pf>l*E'J  ^ -h  A 0-^)/>Up/  - ~(Sb, 

di  T ix  ' 

-t  '^conk  ^ ) ~ f^s  - Dx  tXp 

fi  J 
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The  solid  phase  energy  equation  really  consists  of  two  separable  parts, 
thermal  and  kinetic.  The  kinetic  portion  contains  the  solid-phase  momentum 
equation  and  all  solid-phase  flow  parameters  are  adequately  specified  by  that 
equation  together  with  the  solid-phase  continuity  equation.  What  remains  is 
simply  an  expression  for  heat  transfer  to  the  propellant  together  with  provi- 
sion for  transport  of  these  heating  grains, 

+ IJ.C 

it  TS 

A subtle  feature  of  the  derivation  of  these  equations  is  that  a 
continuum  is  the  underlying  assumption  but  that  the  inequality  between  the 
elements  of  the  gas  and  solid  phases,  i.e.,  gas  molecules  vs.  propellant 
grains,  is  also  addressed.  Essentially,  all  pressure  and  work  terms  are 
attributed  to  the  gas  phase,  whereas  in  two-phase  flow  of  equal  elements, 
the  contribution  of  these  terms  would  be  divided  between  the  phases. 

The  energy  source  term,  is  particularly  important  in  its 

interpretation.  It  represents  the  total  chemical  energy  liberated  during  the 
combustion  process  plus  the  heat  contained  by  the  solid  material  at  the  igni- 
tion temperature.  Experimentally,  the  heat  of  explosion  is  a reasonable 
approximation  for  this  parameter. 


The  BLAKE  code  is  thought  to  be  the  most  accurate  existing  mathema- 
tical representation  of  the  chemical  combustion  process  and  it  is  desired  to 
use  this  code  to  calculate  inputs  for  the  interior  ballistics  code.  The  out- 
put labeled  DELTA  Q was  found  to  be  the  difference  between  the  heats  of 
formation  of  the  propellant  and  combustion  products,  and  represents  the 
chemical  heat  addition.  It  carries  a negative  sign  which  should  be  reversed. 
The  sensible  heat  that  should  be  added  to  this  chemical  heat  is  not  well 
defined  but  a reasonable  approximation  is  probably  where  is  the 

specific  heat  as  given  in  the  BLAKE  code  output  and  TIGN  is  the  ignition 
temperature  used  in  the  interior  ballistics  code.  The  values  of  (^Ee 

sum  of  the  chemical  and  sensible  heats)  as  determined  from  a BLAKE  code  print- 
out for  lot  A of  CASBL  Ml  propellant  are  given  in  Table  I.  A technique  used 
at  NOSIH  and  BRL^’^  is  to  compute 
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TABLE  I 

VALUES  OF  CHEMICAL  ENERGY  FOR  LOT  A 


Loading  Density 
gm/cc 

Echem  " cal/gm 

DELTA  Q + CvTTjo 

F 

r-i 

0.05 

766 

831 

0.10 

766 

835 

0.15 

768 

838 

0.20 

772 

845 

0.25 

778 

856 

0.30 

786 

863 

0.35 

796 

875 

0.40 

808 

886 
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F 
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where  F is  the  impetus  and  y is  the  BLAKE  code  output  term  called  l.B. 

C'lAMMA.  These  values  are  also  tabulated  in  Table  1 for  comparison. 

The  source  and  sink  terms,  m^  and  m^^  are  particularly  unique  to  the 
Calspan  code.  These  represent  flow  interchange  between  parallel  grid  matrices, 
and  are  used  in  the  representation  of  center  core  ignition  and  also  the  gap 
between  bagged  propellant  charges  and  the  chamber  wall.  The  velocity  associated 
with  these  terms  is  given  a non-zero  value  only  if  it  has  an  X-axis  component. 
Radial  components  are  assumed  to  have  no  contribution.  The  flow  work  resulting 
from  these  source  and  sink  terms  is  included  through  use  of  enthalpy  as  the 
energy  parameter. 

2.4 AUXILIARY  RELATIONSHIPS  AND  TECHNIQUES 

2.4.1 Flow  Resistance 

The  resistance  to  flow  through  a porous  bed,  D^,  is  represented  by 

Af>  - z/  (l-<t>) 

Ax  (p 

g 

as  derived  from  the  expression  found  in  Perry's  Chemical  Handbook  . This 

4 

expression  applies  to  particle  Reynolds  numbers  in  excess  of  10  . The  fric- 
tion factor,  f,  is  close  to  0.7  for  extremely  smooth  surfaces  such  as  glass 
as  shown  on  a graph  presented  in  the  reference.  However,  a value  of  1.0 
may  be  more  realistic  for  propellant.  A shape  factor,  is  defined  as  the 

quotient  of  the  area  of  a sphere  equivalent  to  the  volume  of  the  particle 
divided  by  the  actual  surface  area  of  the  particle.  The  average  particle 
diameter,  d,  is  similarly  defined  as  the  diameter  of  a sphere  of  the  same 

volume  as  the  particle.  The  product,  ^ d , reduces  to  6V  /S  , the  same 

s 2 2 P P 

definition  for  effective  diameter  used  by  Gough  . ^ 

At  present,  the  Calspan  code  does  not  distinguish  between  fluidized 
and  non-fluidized  beds.  The  drag  correlation  is  most  important  when  the  bed 
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is  in  a packed  or  near-packed  condition  and  the  differences  between  the  two 
bed  states  are  probably  swamped  by  such  items  as  grain  deformation,  effects 
of  grain  porosity,  and  the  influence  of  combustion,  which  effectively  elimi- 
nates skin  friction  and  alters  the  effective  geometric  size  of  the  grain.  It 
is  recognized  that  large  errors  can  be  generated  as  porosity  approaches  unity 
and  that  care  must  be  exercised  in  the  regime,  particularly  in  barrel  flow 
where  velocities  are  high. 

2.4.2 Heat  Transfer 

Propellant  heating  prior  to  ignition  and  heat  loss  to  the  chamber 

walls  occurs  by  the  three  modes;  convection,  conduction  and  radiation.  Of 

these,  convection  provides  the  major  contribution.  The  relationship  used  to 

express  convective  heating  to  propellant  grains,  as  presented  in  Ref.  9,  is 

, . <»z 

A/y»  = 0.3  Re. 

The  relationship  between  Nusselt  number  and  Reynolds  number  was  determined 
empirically  from  pebble  heaters.  The  conditions  of  these  tests  are  well 
defined  in  terms  of  flow  rate,  gas  temperature  and  steady  state  conditions. 

However,  it  does  not  seem  that  this  empirical  relationship  is 
adequate  for  interior  ballistics  codes.  This  is  partly  a result  of  use  of  a 
coarse  one-dimensional  grid  network  to  calculate  the  flow  conditions.  This 
type  of  network  is  only  capable  of  representing  gross  flow  patterns  and  does 
not  adequately  represent  local  eddys  and  flow  patterns  that  are  important 
to  ignition  and  flame  spread.  For  example,  the  gas  velocity  at  the  breech 
is  computed  by  the  code  to  be  zero  and,  therefore,  the  Nusselt  number  based 
on  Reynolds  number  is  zero.  In  addition,  heat  conduction  and  radiation 
becomes  more  significant  as  pressure  increases. 

In  order  to  overcome  this  deficiency,  a pressure-dependent  correla- 
tion was  formulated  from  chamber-heating  data  measured  at  Calspan  in  a 5.56mm 
fixture^*^.  The  correlation  is 

, o.s-rk 

h - 0.‘niL  x 10  f> 
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where  h,  the  heat  transfer  coefficient,  is  defined  as  q/A  T Btu/ft  -sec-°R. 

The  data  were  measured  near  the  breech  of  the  chamber  where  the  bulk,  one-  • 
dimensional  velocity  is  expected  to  be  quite  low  and  apply  to  pressures  up 
to  50,000  psi.  This  heat  flux  quantity  is  believed  to  be  addi' ive  to  the 
Reynolds  number-dependent  heat  flux  on  the  basis  that  the  chamber  heat  transfer 
data  was  observed  to  increase  as  a function  of  distance  from  the  breech. 

This  increase  is  believed  to  be  the  Reynolds  number  effect.  At  this  time, 
the  magnitudes  as  they  apply  to  artillery  are  not  known  accurately  and  this 
represents  an  area  for  future  research. 

The  relationship  for  propellant  grain  heating  is 

A/  ^ n ‘•i  -i  O.i'A'fc  , 

/Vm^  = 0.3  0-97^x/o  ^ d 

k 

where  d = 6V/S  for  the  propellant  grains, 

k is  the  thermal  conductivity  of  the  gas, 
and  p is  the  pressure  in  psi. 

The  heat  transfer  relationship  for  chamber  wall  heating  is 

A/  n 0.6  -n  o.s-s-im 

Nia^  - O.Z.3  + 0.97ZX/O  f>  dH 

)E 

where  d„  is  now  the  hydraulic  diameter  of  the  propellant-filled  cross-section 

^ 0 8 
and  the  turbulent  flow  heat  flux  to  a pipe  wall  is  represented  by  Re^  ’ . 


2.4.3 


Propellant  Combustion 


Propellant  combustion  in  a gun  is  assumed  to  occur  in  a manner 
similar  to  that  in  a closed  bomb.  Closed  bomb-derived  burn  rates  include  some 
of  the  ignition  transient  and  burning  nonuniformities  that  are  present  in  a 
gun.  These  transients  occur  at  different  rates  and  these  burn  rates  may  not 
be  entirely  representative  of  the  gun  case.  However,  the  closed  bomb  is  the 
primary  source  of  burn  rate  information  for  granular  propellant  as  this  assump- 
tion is  more  or  less  imposed. 


Basically,  the  same  procedure  is  used  to  calculate  combustion  in  the 
interior  ballistics  code  as  in  the  Calspan  closed  bomb  burn  rate  code.  All 
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exposed  surfaces  of  a propellant  grain,  including  perforations,  are  assumed 
to  be  ignited  simultaneously  and  burn  at  the  same  rate.  In  the  finite  difference 
code,  this  concept  is  expanded  to  include  all  propellant  grains  within  a grid. 

The  grains  are  assumed  to  maintain  their  physical  integrity,  except  for  the 
phenomenon  of  splintering.  Bed  compaction,  which  must,  in  reality,  cause  grain 
deformation  and  perhaps  cracking,  is  presently  allowed  to  occur  in  the  model 
without  altering  the  grain  geometry. 

The  possibility  of  bum  rates  within  the  perforations  being  different 
from  those  of  the  surface  is  acknowledged  but  not  included  in  the  present  model. 
Recent  experiments^^  have  shown  this  assumption  to  be  reasonably  accurate  and 
point  out  the  possibility  for  counteracting  effects,  such  as  a flame  zone  or 
at  least  a major  portion  of  the  combustion  external  to  the  perforation,  which 
would  decrease  the  local  heating  and,  therefore,  the  surface  recession  rate 
inside  the  perforation.  The  data  in  Reference  1 seem  to  indicate  a reduced 
combustion  rate  inside  perforations  which  supports  this  premise.  At  any  rate, 
the  closed  bomb-derived  burn  rate  for  the  actual  propellant  used  in  a gun  is 
assumed  to  include  these  effects. 

The  burn  rate  expression 

y = (at,  -*■  -h  cTo 

has  been  found  to  represent  the  combined  effects  of  pressure  and  initial 
temperature  on  burn  rate.  Of  course,  A and  C = 0 cause  the  expression  to 
revert  to  the  familiar  Bp*^.  Calculation  of  burn  rate  is  performed  separately 
from  the  solution  of  the  conservation  equations.  The  calculation  procedure 
involves  determining  the  actual  volume  change  of  a grain  during  the  time 
interval,  which  is  the  exact  function 

AV  = i ( i , P,  4 , L , At) 

This  is  combined  with  propellant  density  and  porosity  to  create  a mass  gene- 
ration term  for  the  governing  equations. 
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AV 

where  — ^ is  the  fractional  change  in  propellant  grain  volume,  D,  d,  and  L are 
propellant  major  diameter,  perforation  diameter  and  length,  and  the 

mass  generation  term  in  the  conservation  equations,  is  the  gas  generated  per 
unit  of  gun  chamber  volume.  For  the  105mm  howitzer,  this  technique  is  applied 
separately  to  both  single  and  multiperf  propellant  grains  of  the  dual  granula- 
tion charge  in  both  the  chamber  and  barrel. 

Eventually,  the  multiperf  grains  reach  a condition,  known  as 
splintering,  where  burning  surfaces  coalesce.  At  this  point  the  calculation 
becomes  less  precise  for  at  least  two  reasons: 

1.  the  geometry  is  changed  drastically  and  calculation  of 
surface  recession  is  inherently  less  precise;  and 

2.  the  splinters  can  no  longer  be  considered  semi-infinite 
in  depth  and  actual  bum  rate  is  increased  due  to  more 
rapid  temperature  rise  in  a thin  section,  and  generally 
larger  surface  heat  transfer  area  in  relation  to  volume. 

At  the  time  of  splintering,  the  length  is  known  and  the  cross- 
sectional  area  and  total  perimeter  of  the  splinters  can  be  calculated  from 
exact  geometric  relationships.  The  assumption  of  equal  recession  of  all 
surfaces,  which  may  not  be  accurate  as  will  be  seen  later,  is  used  for  this 
calculation.  The  differential  volume  change  is 

JV  ==-LP  dx.  - lP  X dt 

and  the  length  change  is 

d L - Z dx  = z X dt 

where  P is  the  total  perimeter  and  dx  is  recession  normal  to  the  surface. 

The  change  in  cross-sectional  area  is  then, 

= dl//L 

The  problem  is  to  functionally  relate  the  cross-sectional  area  A^  to  the 
perimeter.  For  a circle  or  square. 
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Ac  = P" 

but  for  a rectangle  with  one  dimension  much  larger  than  the  other 

- P 


Actual  closed  bomb  pressure-time  data  from  special  Ml  propellant 

lot  A for  the  105mm  howitzer  were  used  in  Calspan's  bum  rate  code  to  assess 

these  relationships.  The  results  are  shown  in  Figure  5.  It  is  noted  here 

that  the  mass  contained  in  the  splinters  amounts  to  about  10%  of  the  total 

mass  of  the  grain.  However,  the  calculated  bum  rate  for  the  last  30%  of  the 

propellant  is  noticeably  depressed  from  the  Bp”  curve  established  previously. 

It  is  postulated  that  this  depression  is  a result  of  calculating  a burning 

surface  area  larger  than  actually  exists.  If  this  is  the  case,  then  splintering 

and  burnout  of  some  grains,  perhaps  a result  of  slow  or  nonuniform  ignition, 

begins  quite  early  in  the  combustion  cycle,  uniform  recession  of  all  grains 

is  a rather  poor  assumption,  and  detailed  treatment  of  splintering  involving 

use  of  this  assumption  is  probably  not  warranted.  Therefore,  while  the  use 

of  a linear  relationship  between  cross-sectional  area  and  perimeter  of  the 

splinters  drives  the  calculated  burn  rate  curve  toward  the  Bp”  curve,  the 

depression  of  the  burn  rate  curve  prior  to  ideal  splintering  is  far  more 

significant.  If  revised  test  or  data  reduction  procedures  should  explain 

this  depression,  then  assessment  of  splintering  would  be  the  next  logical 

step.  It  is  hoped  that  the  JANNAF  Burn  Rate  Workshop  will  shed  new  light 

2 

on  this  problem.  At  present  the  relationship,  P A^,  is  contained  in 
the  model  representation  of  splinter  form  function. 


I 

1 

( 


1 

I 

1 


I 


Prior  to  this  program,  the  105mm  howitzer  code  lumped  both  propellant 
granulations  into  a single  mixture  defined  by  length,  total  cross-sectional 
area  and  total  perimeter  when  the  propellant  flowed  into  the  barrel.  Now, 
the  dual  granulation  feature  is  retained  throughout  the  ballistic  cycle. 

The  propellant  grains  retain  their  length  and  diameter  as  they  enter  the 
barrel  and  combustion  calculations  in  the  barrel  are  now  identical  to  those 
performed  in  the  chamber. 

i 
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Figure  5 BURN  RATE  VS  PRESSURE  FOR  SPECIAL  Ml  PROPELLANT  LOT  A SHOWING  EFFECTS 

OF  CROSS-SECTIONAL  AREA-PERIMETER  RELATIONSHIP  AFTER  SPLINTERING  i 

I 
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The  solid  propellant  momentum  equation  contains  a term  that  represents 
the  buildup  of  force  resulting  from  bed  compaction.  This  term. 


A.  [A(i-rt>)<r] 

denotes  only  the  axial  stress  in  the  bed.  The  frictional  resistance  of  the 
wall  and  stress  normal  to  the  wall  are  neglected  in  this  formulation,  which 
allows  a net  force  creation  resulting  from  an  area  change  in  a compacted  bed. 
The  dynamic  nature  by  which  a bed  becomes  compacted  is  reasoned  to  permit 
this  assumption. 

Bed  compaction  forces  were  measured  during  an  experiment  conducted 
12 

at  NOSIH  during  1976  and  these  data  are  shown  in  Figure  6.  The  fractional 
bed  compaction  is  related  to  the  applied  pressure  by 

/ i\  4-  1424. 

(I  - 4>)(r  = ^ = 1.7  X to  c 

where  C is  the  compaction,  p is  the  pressure  applied  to  the  piston  in  psi, 
and  the  intergranular  stress  in  psi.  The  compaction,  or  fractional 

amount  the  bed  is  compressed  from  its  initial  state  is  given  by 

C = (<t>.  - 4>)/(i  - 4>o) 

Therefore,  the  stress  term  in  the  solid  momentum  equation  becomes 
(/-cp)(r  = y.  7 X /o'" 

The  Calspan  code  assumes  this  to  be  an  elastic  stress.  This  is 
obviously  a deficiency  in  the  code  since  plastic  deformation  must  occur  at 
high  compaction.  However,  the  intergranular  stress  is  most  important  during 
initial  compaction  when  pressures  and  drag  forces  are  lowest.  During  this 
initial  period,  the  assumption  of  elastic  deformation  is  adequate. 

Compaction  is  allowed  to  proceed  until  lower  porosity  limit  is 
reached.  This  limit  is  more  or  less  arbitrary.  It  has  been  stated^^  that 
this  limit  should  be  the  lowest  porosity  that  could  be  achieved  without 
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Figure  6 PROPELLANT  BED  COMPACTION  AS  A FUNCTION 
OF  PRESSURE  APPLIED  TO  A PISTON 
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deforming  the  grains  because  the  model  does  not  contain  provision  for  defor- 
mation and  breakup  phenomena  and  effects  on  combustion  rate  that  must  occur 
at  lower  porosities.  We  believe  the  lower  porosity  limit  should  allow  defor- 
mation to  occur,  even  though  the  physics  of  the  deformation  process  are  not 
included  in  the  model.  In  some  instances,  the  conditions  required  to  achieve 
severe  compaction  are  present  and  runaway  pressures,  of  the  type  that  cause 
breech  failures,  have  been  calculated  as  a result  of  the  highly  compacted 
state  without  altering  the  combustion  calculations. 

2.4.5  Grain  Segregation 

The  mathematical  simulation  of  the  105mm  howitzer  incorporates  the 
single  and  multiperf  components  of  the  dual  granulation  charge  in  addition  to 
the  black  powder  primer.  The  simulation  of  the  155mm  howitzer  has  the  ability 
to  incorporate  one  granulation  of  single  or  multiperf  propellant  and  black 
powder. 

In  all  instances,  diffusion  of  the  various  granulations  is  not 
specifically  included  in  the  model,  other  than  that  occurring  inadvertently 
as  a result  of  solution  of  the  governing  equations.  Diffusion  coefficients 
are  quite  small  because  of  the  size  and  mass  of  the  granules  and  this  pheno- 
menon is  expected  to  have  a negligible  effect  on  the  interior  ballistics 
calculations.  The  original  purpose  of  the  models  was  to  provide  an  analytical 
technique  for  charge  assessment.  Therefore,  great  pains  were  taken  to 
account  for  the  masses  of  the  charge  constituents  when  the  models  were  cons- 
tructed. The  single  and  multiperf  charge  components  of  the  105mm  howitzer 
maintain  strict  segregation  for  this  purpose,  that  is,  to  help  eliminate 
inaccuracies  in  accounting  of  unburned  mass.  Segregation  is  achieved  by 
not  allowing  propellant  of  one  type  to  pass  from  an  elemental  volume  until 
all  of  the  second  type  is  gone. 

2.4.6  Mass  Accounting 

The  finite  difference  technique  used  to  solve  the  governing  equations 
of  the  gas  phase  causes  viscous  dissipation-type  terms  to  be  introduced  as  a 
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means  of  maintaining  computational  stability.  This  causes  errors  to  be  intro- 
duced in  gas  phase  quantities,  primarily  the  mass. 

For  this  reason,  the  solid  phase  equations  are  integrated  in  a step- 
by-step  manner  that  maintains  accounting  accuracy.  That  is,  when  a quantity 
of  propellant  is  burned  during  a time  interval,  that  quantity  is  subtracted 
from  the  amount  existing  in  the  grid  at  the  beginning  of  the  interval.  When 
propellant  moves,  the  amount  moving  from  one  grid  to  the  next  is  physically 
added  to  one  grid  and  subtracted  from  the  other  in  a separate  operation. 
Therefore,  it  is  believed  that  the  solid  propellant  is  accurately  accounted 
for  during  the  ballistic  cycle. 

The  total  mass  of  gas  in  the  system  is  accounted  for  and  adjusted 
every  calculation  time  interval.  The  gas  and  unburned  propellant  in  each 
grid  is  totaled  separately.  The  sum  plus  the  error,  E,  is  set  equal  to  the 
initial  propellant  charge  and  gas 


i.J 


- nif,  -t-  -t  e = 

where  m^  is  the  total  mass  of  gas  in  the  system 

m^  is  the  total  mass  of  unbumed  propellant  in  the  system 
is  propellant  density 
xcj  is  gas  density,  and 
V. . is  the  volume  of  the  V. grid. 

The  error,  € , is  then  distributed  over  the  entire  matrix  by 


Thus,  a truly  constant  mass  is  maintained  throughout  the  ballistic  cycle 
although  the  mass  distribution  may  be  slightly  in  error. 
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Treatment  of  the  Solid  Phase 

The  solution  of  the  solid  propellant  mass  and  momentum  conservation 
equations  is  performed  in  sequential  operations  by  three  subroutines  in  the 
chamber  and  two  in  the  barrel.  A single  subroutine  in  the  chamber  and  barrel 
perform  the  combustion  calculation.  Another  chamber  subroutine  performs  the 
propellant  acceleration  calculations  of  the  momentum  equation,  leading  to 
velocity  change,  and  the  third  chamber  subroutine  evaluates  the  convective 
terms  of  both  the  mass  and  momentum  equations,  yielding  the  final  updated 
propellant  properties  in  each  grid  at  the  end  of  the  time  interval. 

In  order  to  simplify  the  calculation  procedure  for  the  barrel,  the 
assumption  was  made  in  the  original  model  formulation  that  propellant  in  the 
barrel  only  traveled  toward  the  muzzle.  The  assumption  was  adequate  after 
the  projectile  had  traveled  some  distance  down  the  barrel.  However,  in  situa- 
tions characterized  by  traveling  waves  in  the  chamber  during  early  projectile 
motion,  this  assumption  was  clearly  erroneous.  Therefore,  propellant  motion 
calculations  in  the  barrel  were  revised  and  are  now  the  same  as  those  in  the 
chamber. 

Briefly,  the  terms  of  the  propellant  conservation  equations  are 
evaluated  as  follows. 

a.  Combustion: 

The  combustion  or  solid  mass  loss  term  in  the  governing  equations 
was  given  previously  as 


where  ^ - the  fractional  volume  change  of  propellant  during  a time 

interval  and  S is  the  burning  surface  area.  This  is  evaluated  in  Subroutine 
REGRES  of  the  chamber  and  DIMIN  of  the  barrel. 


b. 


Grain  Acceleration: 


The  solid  phase  momentum  equation  in  conservative  form,  when 
combined  with  the  solid  phase  continuity  equation  yields 

0 - 4>)  f‘(,  -i-(i~4>)^  = Dx  - S A i^<^0-4>)] 

The  propellant  velocity  is  updated  in  two  stages.  This  procedure  recognizes 
that  a relationship  must  exist  between  the  speed  of  sound  in  the  solid  grains 
and  the  values  of  At  and  Ax  in  order  to  obtain  the  proper  integrated  results. 
Tlierefore,  the  convective  term  is  considered  separately  in  the  conservative 
form.  While  this  is  not  a rigorous  mathematical  technique,  it  eliminates  some 
of  the  smearing  that  results  from  direct  solution  to  the  above  equation  in 
the  time  frame  of  the  gas  phase  equations  and  helps  to  maintain  an  accurate 
accounting  of  the  solid  mass.  The  velocity  change  for  propellant  in  a grid  at 
the  beginning  of  the  time  interval  is 


= At  I Ox  - (i-<t>)AL  ( 


where 


Al  j = L ] 

Ax 


ax  - i 
z dx 


These  calculations  are  performed  in  chamber  subroutine  PRPVEL  and  barrel 
subroutine  PR0PM0. 

c.  Convective  Terms: 


The  convective  terms  in  the  solid  phase  mass  and  momentum  equations 
are  evaluated  in  chamber  subroutine  PR0PEL  and  barrel  subroutine  PR0PM0.  Here 
the  strict  accounting  procedure  is  also  followed.  The  final  solid  mass  in 
an  elemental  volume  after  combustion  is  simply 


t 


combi 


- 


i+at  f ^ 

(i-4>i  )Ai  = (/-4>^.)A/  - it- ^ + Li  - at 

dx  dx 
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where  is  the  porosity  in  grid  i after  combustion  is  considered  and  K 
represents  adjoining  grids  with  a velocity  vector  directed  toward  the  i^^  grid. 


Similarly,  the  convective  momentum  term  is  included  in  the  final 
propellant  velocity 


t*-at 


In  this  manner,  propellant  motion  is  calculated  for  each  of  the 
grid  networks  in  the  gun  system,  including  the  black  powder  center  core. 
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Section  3 

MODEL  CALCULATION  DISCREPANCIES 


5. 1  OVERVIEW 

Extensive  use  of  the  i75mm  gun  code  revealed  two  calculation 
discrepancies  that  occur  consistently.  One  was  a step  pressure  discontinuity 
on  the  rise  portion  of  the  curve.  The  second  discrepancy  pertained  to  the 
width  of  the  curve,  namely  the  area  under  the  portion  of  the  pressure-time 
curve  where  the  pressure  was  greater  than  half  the  peak  pressure.  The  problems 
are  illustrated  by  the  computed  and  experimental  pressure  curves  shown  in 
Figure  7.  The  discontinuity  is  characterized  by  the  large  spike  on  the  left 
hand  side  of  the  curve  and  the  difference  in  curve  widths  is  readily  apparent. 
This  section  discusses  the  causes  of  the  discrepancies  and  the  means  of 
eliminating  them. 

5.2  PRESSURE  DISCONTINUITY 

The  pressure  discontinuity  is  observed  to  occur  at  the  exact  time 
the  first  grid  is  added  to  the  barrel  matrix.  The  mechanism  that  causes  the 
spike  is  the  logic  that  keeps  continuous  account  of  the  amount  of  propellant 
and  gas  in  the  system.  An  inaccuracy  in  the  technique  used  to  allow  initial 
projectile  movement  was  suddenly  corrected  when  the  first  barrel  grid  was 
added  and,  therefore,  the  spike  was  generated. 

Projectile  motion  and  grid  addition  is  illustrated  in  Figure  8. 

The  first  diagram  shows  the  projectile  at  its  rammed  position.  The  projectile 
base  is  assumed  to  be  located  at  the  end  of  the  chamber  which  coincides  with 
the  beginning  of  the  barrel.  This  point  is  important  and  will  be  discussed 
later.  The  last  chamber  grid,  designated  NGX,  is  initially  half  a grid  and 
represents  a boundary  condition.  This  condition  is  currently  treated  by 
the  mirror  image  technique  which  assumes  that  upstream  and  downstream  conditions 
are  identical  in  magnitude  but  opposite  in  direction.  The  second  and  third 
diagrams  show  how  this  last  chamber  grid  stretches  from  a width  j^x  to  Ax' 


35 


6 

8 10  12  14  16 

TIME  - msec 

18 

Figure  7 

ILLUSTRATION  OF  DIFFERENCES  BETWEEN  EXPERIMENTAL  AND  COMPUTER 
GENERATED  PRESSURE  HISTORIES  FOR  THE  M126  155mm  HOWITZER 
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and  shifts  as  the  projectile  begins  to  move.  Tlie  grid  NGX  is  still  half  size 
and  the  mirror  image  technique  is  still  used  with  the  moving  boundary  taken 
into  account.  Finally,  the  fourth  diagram  shows  the  grid  pattern  when  the 
projectile  has  moved  the  width  of  one  grid,  Ax.  At  this  time,  the  first 
barrel  grid  is  added  and  designated  2.  The  barrel  grid  1 corresponds  exactly 
with  chamber  grid  NGX.  At  this  time,  the  chamber  grid  NGX  becomes  a full  grid 
of  width  Ax  and  barrel  grid  2 is  half  a grid.  This  sequence  is  repeated  as 
additional  grids  are  added  to  the  barrel  matrix. 

Several  instances  were  discovered  where  the  current  model  did  not 
represent  this  sequence  of  events  exactly,  this  especially  pertained  to  the 
gas  and  solid  accounting  procedure  when  the  chamber  grid  NGX  was  treated  as 
a whole  grid  throughout.  This  caused  an  error  to  occur  in  the  volume  calcula- 
tion and  is  directly  responsible  for  the  pressure  discontinuity.  In  addition 
the  treatment  of  gas  and  solid  propellant  accumulation  in  the  grid  was  in 
error  because  it  remained  fixed  and,  in  effect,  the  addition  of  the  first  barrel 
grid  caused  a step  change  in  conditions. 

These  errors  were  eliminated  through  the  following  steps: 

a.  Tlie  gas  and  solid  propellant  mass  accounting  equations  ; 

\ 

in  Subroutine  UPDATE  were  modified  so  that  the  volume  1 

of  grid  NGX  is  now  computed  by  the  product  A ( - 

AX/2).  ax  ' (see  Figure  8)  is  initially  equal  to  A x 
and  eventually  grow  to  This  change  correctly 

represents  the  initial  half  width  condition  and  even- 
tual 1 1/2  grid  size  at  the  time  the  first  barrel  grid 
was  added.  /^X'  (DXPRIM)  is  computed  in  subroutine  MOTION. 

b.  The  effects  of  the  change  in  volume  of  grid  NGX  on  the 
quantities  that  specify  the  conditions  in  it;  namely, 
porosity  and  density,  are  taken  into  account  in  Subroutine 
MOTION. 
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INITIAL  GRID  MATRIX 


Figure  8 ILLUSTRATION  OF  INITIAL  BARREL  GRID  ADDITION  PROCEDURE 


c.  The  calculation  of  porosity  change  due  to  incoming 
propellant  was  updated  to  include  effects  of  the 
increased  grid  volume  by  use  of  AX'  - AX/2  instead 
of  Ax  in  grid  volume  calculation  of  Subroutine 
PR0PEL. 

d.  The  effects  of  the  enlarged  grid  on  finite  difference 
calculations  was  included  by  using  AX'  as  the  grid 
length  in  Subroutines  AXIT2  and  AXIT3. 

These  changes  eliminated  the  pressure  spike  but  a discontinuity 
still  remained  at  the  barrel  grid  addition  point.  Further  examination  revealed 
a discrepancy  in  the  handling  of  chamber  dimensions.  The  actual  input 
quantities  and  the  discrepancy  are  illustrated  in  Figure  9.  The  problem 
arises  because,  in  the  normal  gun  configuration,  the  projectile  base  and  the 
barrel  origin  do  not  coincide.  The  model  creates  the  chamber  grid  matrix  from 
the  input  dimension  DRAM,  which  is  the  distance  of  the  projectile  base  from 
the  breech.  However,  several  inches  of  projectile  protrude  into  the  chamber 
and  previously  unaccounted  free  volume  exists  between  the  projectile  base 
and  barrel  origin.  In  addition,  the  chamber  cross-sectional  area  at  the  posi- 
tion of  the  projectile  base  is  greater  than  the  bore  area,  while  the  code 
assumes  they  are  equal.  Therefore,  during  the  calculation  of  the  growth  of 
grid  NGX,  a volume  equal  to  the  chamber  cross-sectional  area  at  the  initial 
position  of  the  projectile  base  times  the  projectile  travel  is  added  instead 
of  the  actual  volume  displacement  of  the  projectile.  The  code  input  para- 
meters that  specify  the  gun  chamber  were  revised,  as  shown  in  Figure  9 so  that 
the  projectile  base  lies  at  the  barrel  origin  and  the  chamber  volume  is  ini- 
tially correct.  These  changes  eliminated  the  pressure  discontinuity  as  shown 
in  Figure  10. 

3.5 AREA  UNDER  PRESSURE  CURVE 

While  the  results  shown  in  Figure  10  indicate  that  the  peak  pressure 
agrees  closely  with  the  experimental  value,  the  area  under  the  curve  is  in 


Figure  9 ILLUSTRATION  OF  REQUIREMENTS  FOR  GUN  CHAMBER  SPECIFICATIONS 
IN  MODEL 
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error.  The  pressure  fall  off  after  peak  agrees  quite  closely  with  the 
experimental  curve  and  the  pressure  rise  portion  agrees  fairly  well.  The 
problem  appears  to  be  the  failure  to  reproduce  the  hump  correctly. 


Elimination  of  the  pressure  spike  had  no  effect  on  this  problem 
so  several  parameters  were  varied  to  determine  their  sensitivity.  The  para- 
meters included  projectile  moment  of  inertia,  boundary  layer  growth  coefficients 
and  propellant  combustion  characteristics.  The  results  of  this  study  are 
shown  in  Figure  11. 

Projectile  moment  of  inertia  and  boundary  layer  coefficients  had 
virtually  no  effect.  A study  of  propellant  combustion  in  a closed  bomb  at 
Calspan,  Ref.  14,  indicated  that  the  effective  bum  rate  falls  off  drastically 
near  burnout  during  the  splintering  jirocess.  An  approximate  representation 
of  this  fall  off  as  compared  to  the  results  of  Ref.  14  are  shown  in  Figure  12. 
Use  of  this  burn  rate  curve  during  the  splintering  process  caused  the  pressure 
curve  to  narrow  slightly. 

Reference  14  also  suggests  that  'low  burn  rate  exponents  may,  in 
fact,  not  be  accurate.  That  report  shows  a nearly  linear  increase  of  burn 
rate  with  pressure  until  the  fall  off  near  splintering.  Strand  burner  data 
for  Ml  propellant,  which  gives  a pressure  exponent  of  0.91,  was  used  in  place 
of  the  Picatinny  Arsenal  data,  which  had  an  exponent  of  0.654.  The  shape  of 
the  peak  and  fall  off  regions  of  the  computed  pressure  curve  agree  extremely 
well  with  the  experimental  data  as  shown  in  Figure  11.  The  peak  value  is  a 
little  high  and  the  initial  rise  is  more  gradual.  It  is  felt  that  a slight 
adjustment  of  the  burn  rate  parameters  and  the  projectile  shot  start  pressure 
may  eliminate  these  areas  of  deviation.  Therefore,  it  does  appear  that  use 
of  closed  bomb  burn  rate  data  with  a low  pressure  exponent  may  be  a cause 
of  the  excessive  width  of  the  pressure-time  curve. 

It  was  noted  by  ARRADCOM  that  the  pressure  curve  generated  by  the 
105mm  code  became  narrower  after  the  modifications  described  in  this  report 
were  incorporated.  These  changes  have  not  been  incorporated  in  the  155mm  code 
at  the  writing  of  this  report.  It  is  conceivable  that  the  basic  formulation  of 
the  155mm  model  also  contributes  to  the  excessive  pressure  curve  width. 
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Figure  11  INFLUENCE  OF  SEVERAL  PARAMETERS  ON  PRESSURE  CURVE  PROFILE 
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Figure  12  APPROXIMATE  REPRESENTATION  OF  PROPELLANT  GRAIN  SPLINTERING 
FOR  MATH  MODEL 


SECTION  4 


EXPERIMENTAL/ ANALYTICAL  CORRELATIONS 

A series  of  eight  special  lots  of  MI  multiperf  propellant,  designated 
PAD-PE-490-I-A  through  H for  use  in  the  lOSnun  howitzer  were  prepared  for  the 
purpose  of  determining  the  incremental  effects  of  various  physical,  chemical, 
and  operational  factors  on  propellant  performance.  This  knowledge  will  be 
used  to  help  formulate  the  quality  control  package  to  be  implemented  for  the 
continuous  propellant  line  at  Radford  Army  Ammunition  Plant. 

The  variable  factors  were  quantified  in  terms  of  input  parameters 
required  by  the  lOSmm  howitzer  code.  Burn  rate  parameters  were  determined 
from  closed  bomb  tests  conducted  at  ARRADCOM.  The  BLAKE  code  was  used  to 
generate  the  required  energy  and  equilibrium  gas  state  parameters  from  chemi- 
cal analysis  information.  Other  physical  data  such  as  grain  dimensions  and 
density  were  obtained  by  the  propellant  manufacturer  and  appear  on  the  descrip- 
tion sheet  for  each  lot. 

The  appropriate  input  parameters  are  given  in  Table  II  for  each 
special  lot  (A-H) , the  reference  multiperf  lot  (68-051),  the  single  perf  lot 
(68-108)  and  the  black  powder.  The  burn  rates  for  the  multiperf  reference 
lot  and  the  single  perf  lot  were  assumed  to  be  those  given  in  the  CPIA-M2 
manual  (Ref.  15).  The  black  powder  burn  rate  is  that  given  for  low  pressure 
in  Reference  16.  Black  powder  energy  and  state  parameters  represent  combina- 
tion of  values  from  Reference  16  and  some  unreported  closed  bomb  data  at 
Calspan.  Other  program  inputs  are  given  in  Appendix  C. 

The  results  of  these  calculations  are  compared  with  experimental 
firing  data  obtained  by  making  the  special  propellant  into  M67  charges  and 
firing  an  Ml  projectile  from  an  M2A2  105mm  howitzer  in  Table  III  and  Figure 
13.  It  is  seen  that  the  eight  special  propellant  lots  fall  into  two  groups 
according  to  perforation  diameter,  those  with  large  perforation  diameters 
giving  substantially  higher  performance  than  those  with  smaller  perforation 
diameters.  In  general,  the  computed  results  for  lots  A-D  are  higher  than 
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COMPUTER  CODE  INPUTS  FOR  SPECIAL  PROPELLANT  LOT  SIMULATIONS 


TABLE  II  (CONT.) 


XL02  = 0.199 


TABLE  III 


COMPARISON  OF  COMPUTED  AND  EXPERIMENTAL 
I05MM  HOWITZER  PERFORMANCE  FOR  EIGHT  LOTS 
OF  SPECIAL  PROPELLANT 


Lot 

A 

B 

C 

D 

E 

F 

G 

H 

REF 


Peak  Pressure  I Muzzle  Velocity 

Psi  Ft/Sec 


Comp. 

Exp  j 

Comp . 

Exp . 

30400 

28800  j 

1482 

1443 

34300 

i 

31000 

1533 

1491 

32700 

30000 

1516 

1484 

35500 

32400 

1547 

1510 

45600 

41700 

1591 

1583 

46200 

45300 

1603 

1605 

49400 

46400 

1615 

1614 

51400 

47200 

1624 

1618 

28800 

34200 

1454 

1532 
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the  experimental  results,  with  respect  to  both  pressure  and  muzzle  velocity. 

For  lots  E-H,  the  muzzle  velocities  are  fairly  close  but  the  pressures  are 
slightly  higher  than  experimental  values.  The  reference  lot  was  not  close, 
likely  the  result  of  a poor  assumption  for  burn  rate.  Since  the  burn  rate 
was  assumed  for  the  reference  lot,  this  deviation  was  not  pursued. 

The  calculation  accuracy  of  the  105mm  howitzer  code  is  somewhat 
limited  by  the  quality  of  the  input  parameters  stpplied  to  it.  Barrel  resis- 
tance and  other  parameters  are  selected  on  the  basis  of  the  code  providing 
acceptable  results.  For  these  runs,  an  attempt  was  made  to  select  a common 
set  of  parameters  by  getting  peak  pressure  and  muzzle  velocity  to  agree  for 
both  lots  A and  F.  Some  of  the  computer  results  generated  during  this  attempt 
are  shown  in  Table  IV.  As  indicated  in  that  table,  the  attempt  was  not 
successful.  It  was  not  possible  to  spread  the  difference  in  muzzle  velocity 
between  lots  A and  F to  the  required  160  ft/sec  and  still  incorporate  the  BLAKE 
and  closed  bomb  generated  inputs.  Therefore,  the  performance  results  assigned 
to  the  special  lots  were  determined  by  selecting  code  parameters  that  matched 
the  velocity  and  peak  pressure  of  lot  F with  the  experimental  value.  Indeed, 
lot  F is  close  to  the  experimental  curve. 

There  are  several  comments  that  can  be  made  regarding  these  results. 
First,  the  failure  to  obtain  a measured  burn  rate  curve  for  the  single-perf 
propellant  introduces  a source  of  error  immediately.  As  shown  in  Table  IV, 
it  can  have  a large  influence  on  muzzle  velocity  and  particularly  peak  pressure. 
It  was  noted  previously  that  the  computed  results  from  the  referenced  lot 
were  probably  erroneous  for  this  reason.  It  is  suggested  that  propellant 
charges  containing  propellants  from  these  lots  (68-051  and  68-108)  be  dis- 
assembled and  that  closed  bomb  tests  be  conducted  with  the  powder.  Then  these 
calculations  should  be  repeated  replacing  the  assumed  burn  rate  parameters  with 
measured  ones. 

Secondly,  it  is  noted  that  differences  in  grain  outside  and  perfora- 
tion diameters  of  0.001  or  0.002  inch  have  a large  impact  on  computed  results. 

A decrease  of  0.002  inch  in  perforation  diameter  dropped  the  computed  peak 
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COMPUTED  PEAK  PRESSURE  AND  MUZZLE  VELOCITY  FOR  A VARIETY  OF  COMPUTER  CODE  INPUTS 
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pressure  by  nearly  3000  psi  and  the  muzzle  velocity  by  11  ft/sec  for  lot  F. 

It  is  expected  to  be  even  greater  for  lot  A where  the  perforation  diameter 
is  less  than  half  of  that  of  lot  F.  Therefore,  it  is  suggested  that  extra 
care  be  given  to  characterize  the  mean  and  standard  deviation  of  perforation 
diameter  in  the  same  manner  it  is  done  for  outside  diameter  and  length. 

Finally,  results  being  developed  under  the  auspices  of  the  JANNAF 
Burn  Rate  Workshop  indicate  that  closed  bomb  results  are  not  adequate  for 
use  in  computer  codes.  Computed  burn  rates  from  a current  workshop  data 
reduction  exercise  indicate  that  loading  density  has  a strong  influence  on  the 
burn  rate  curve  as  shown  in  Figure  14.  In  essence,  the  effect  of  loading 
density  is  believed  to  place  the  propellant  grains  at  different  pressure 
levels  for  a given  percentage  of  surface  recession.  Thus,  effects  of  combus- 
tion variations  at  different  locations  on  the  exposed  surface,  i.e.,  in 
perforations  or  on  the  outside  surface,  become  apparent.  This  is  an  extremely 
important  phenomenon  that  must  be  understood  if  the  model  can  be  made  to 
become  a predictive  device. 

Therefore,  the  results  of  this  program  can  be  summarized  by  stating: 

1.  The  model  has  been  definitely  improved  through  reformula- 
tion and  by  giving  better  theoretical  basis  to  its 
inputs . 

2.  The  model  is  still  hampered  in  its  usefulness  by 
inadequately  defined  input  parameters  and  an  unusual 
lack  of  understanding  of  certain  basic  combustion 
phenomena. 
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Figure  14  COMPUTED  BURN  RATES  AT  THREE  CLOSED  BOMB  LOADING  DENSITIES 
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APPENDIX  A 
NOMENCLATURE 

Cross-sectional  area  of  elemental  volume 
Constant  volume  specific  heat  of  combustion  products 
Drag  force  over  the  length  of  an  elemental  volume 
Gas  static  internal  energy 
Gas  total  internal  energy 

Total  static  heat  contained  in  gas  generated  during  combustion 

Static  or  thermal  energy  contained  in  solid  propellant 

Sum  of  thermal  and  kinetic  energy  of  solid  propellant 

Rate  of  gas  generation  during  combustion 

Gas  entering  elemental  volume  through  side  walls 

Propellant  entering  elemental  volume  through  side  walls 

Nusselt  number 

Pressure 

Heat  transfer  to  propellant  surface 

Heat  transfer  to  chamber  wall 

Gas  constant 

Reynolds  number 

Propellant  grain  surface  area 

Temperature 

Time 

Gas  velocity 
Propellant  velocity 

Velocity  in  x-direction  of  gas  entering  volume  through  side  wall 

Velocity  in  x-direction  of  propellant  entering  volume  through  side 
wal  1 


r 

A X 

4> 

P 

P p 
cr 


Propellant  grain  volume 

Coordinate  along  axis  of  elemental  volume 

Ratio  of  specific  heats 

Length  of  elemental  volume 

Porosity 

Gas  density 

Propellant  material  density 
Compacted,  propellant  bed  stress 
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APPENDIX  B 
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FORTRAN  IV  - MACHINE  LISTING 
105MM  HOWITZER  CODE 

PWrbHAM  ( ll.PUT  t fAPCbslNHUTtOUTPlj  r ,1  /\l  lG  = 01JTPUT  ) 

MAIN 

COMMON/FAILLO/ IM(.K  I , PHOOP  , PCOMP  , PT  UP  , XM  i Jb  . F A I L tMf  AlL(fcT)  t 
lTHltK(bO ) 

C0MMCN/DAKHL2/boKr.A.XPtVP,&f’FFUtB0KtH  .bOKuDd.DTPPO.DIDSt,  t XLPAH 
COFi'iOl  /LAI  LP/BI  lEF  T 

COPhcr</CHAf‘/  IX  , lb  .xBiKBtUGXii'H-Mf  t IbtGP  , it  hUH»  IPATH  ( f 0 t 5 » . AKt  AG(S  ) . 
$ MhLAfH,  Auf  AC  (bO)  f lONll  ,0|it  HtClAMl  .L  1 , U 1 SI  t P 1 S2  i D 1 S’!  t f I SA  . 

S Abl  Al<  ( Gu  ) « At<t  max  «lHAM1  ,Ct  i^r  2 »CMAF  3»  TLPL'.f  t Aiv E AFF  ( bO  ) , U A V(  , 

* AKF  AH2«D1  ANi  1 tHLLLlMOf  PE  Lt  t.(  , TPSl , lPb2  , h ALPS  , I PIGE 
COMMuIm/CLC  CK/ I li'  C,  tCLLT 
CIvM  iO(m/PE1  I'-X/I..*  SbVE 

( lMI()(\'/l  ur  5/r.Ti  ^ , l2iiK,T2C;x.l  .wOl  KM  KiLP,  TuOLJ,f-H'A<  iS.nVAX  IT  t 
$ ( X , t/R  »Nx  tbj  * TkUuT  iHbP 

COf  r.CL/INPL  rS/Cl.C2.C3.t4,T(j  ,T  rbri,(-.CO|.S,l.-(L.H,PHln  ,TF,CA«RHO(j  , 

$ hO  ,»’0  ,U(i  ,t.THEt.jl',Ei^,Uh,UM2  ,T  irj|'[;P,UbLUI,S,  TUTN  » DIFF  PR 
( OMMOrj/MOcOlj/CLKi,CON4»COuri,AREAPfa,20  .>.1  b«XOB,FDMAV  , FINER. 

$ C F . K A LE-  P 1 P M A SS  , X 1 N T , P I hi  . L 0 . PLO  , t.  CL  F 
COfiK  l./F  / IFKIU  I , ''•Cl'CH.MOUGE'  fPHIl , IUEfiUb(  it, ) 

COf,i  Olv/E  Rpl",u/E  lE'L 
C OMKM'N/SPL  llTE/wEi'liLLL  . WP.CLH? 

Coi  nOu/OAKKC/  E-hltloO).  KnibClOO).  EifdOi)).  bbdOO).  UPdOD, 

1 Pb(lOU),  TbdOf.)*  PhbbTdOU).  fjL(l(:u),  UDRAbdOU).  FKlCT(lOO». 

2 RCChVEluOi*  ubFdOd).  EJE’i- 1 d 0 ( ) , UHtibhilOU).  UEltdOfK.  ULC.  (ICli) 

3 Ar<''SSduL>»  ANOhdOU).  ALNlI  (1^0).  UANASSdOO).  tl " P'Or'i  ( T 00  ) . 

AiIAE  I.EF  (1  uii ) . Pf  i2  ( 100  ) »UPFti2  ( 1 00  ) 

tOFhPlM/rAC /r'Pl--b(t0.J>)  . KEilO'G  ( , b ) , hE^CEbO.b).  UlM,  E 6 C , b » . 

1 VHb((,0,E),  liPlKbO.b).  fCHEhO.b).  dC(fu.b), 

2 L(TMIb(fco)f  i.'E  AGE6U.L')  . X To.  »>C  ( F 0 , h ) » LoThB  E GO  , b ) , UPbnT  E GO  , E ) « 

3 EfIlrilDEtO.b)  , FE-UPfDEfaO.b)  , f RbK  ■ ( bo  , 1 1 , UPC-TP  E GO  , b ) . 

4 VHLTUEGLS5)  . IHCEfaO«5)  . LCiTI''KG  E GO  ) ,[K.T,''E  (GO, til  . PHIRP  ( .,0  , b ) , 

5 PE^lFllJEbLtb)*  l^.l‘’Et>0)»TE;PE‘-.u."i).PE(l?ThEGL.P).  LPR^EfcO.b), 

6 T?.K2EbE/)  .l/Cr'EbO.b)  . PHIBCI’ ( tO  t b ) 
logical  PKll.luLhUb 

l OGlCAL  K-F  IT  ,Oi.t  DtCEiAHl  »Ci-.A^j>,CPAi'  3»BF  ibil 
I . It  i i,  /'  L F 1 F E. 

LObiC.AL  FAIL 
I OblLAL  BE'LEFT 
lOGlCAL  .rlEiOLE  C .iULLEt' 


I'LAijEb.lOOD)  iLt-bOb 
wRi tr  Eb,2oc;K 
VPI  lLE6,2ilUA) 

1 I E- ( b . 2(j02  ) Iih.blib 
IPPl  II  = (I 

MAMLLlST  /MULS/.  ,0!,C  b , MOCiGf< 
FEALEb.MOCS) 

IF  ( IPEiiuG  E 1 n WKlTE  (G.MbI  S) 
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AVAIIABIE  COPY 

c 

C UhkK  bLACK  PuWutK  Al  ALL  IS  IC^'I1L(  , bHJGlJ  I^ILL  bt:  SL1  TtiLt 

C I-M  beFir<. 

Hf  ILA  = ,F  ALSf  . 

C 

C ^HL^  PHCPElL»<i  I Ml  ALL  SRlLS  IS  KiMlFI-t  IoImIT  WILL  RE  <;CT  IhUE 
C lAi  PKPHK, 

IGMl  = .FALSI  . 

FAIl  = .FAL^sE, 

C 

C*  FAIL  vJlLl.  lil  FLI  FALSE  IH  TohF/.L  UNTIL  IhL  TuPL'  HAS 

C*  FAlLtO  CUM’LtTl  LYd'-lFAlLd)  = ) AlOriG  IlS  ENTIRE  I EARTH. 

C 

C 

C ONtt'  IS  FAlSt,  Li-llL  TWO  LOf  LUKAS  AKE  SymSFim  AND  THr  CHAHHEF 
C IS  NAtif.  l-Oll'.El'  f if'NAL 

C 1.  PFUbtlLANI  IS  lul.lUO  aT  aLL  RUCIS.  I.F.  iG.vIl  IS  IRUl 

C 2.  A I'CFOSITY  CONI  ITlOf,  Is  SaIISfIEi- 

CM  L = .FALSE  . 

C 

C l.'HOltf  wJLL  Hi  M l false  IH  ;^t&i<LS  EiiEl.  FKOPlLLANT  GRAINS  SFIIMER 

C IN  Al  least  » Nt  f.MAl'.uErt  GRU  . /^H.OLEH  ALTS  Sl.*ilLAf<LY  IN  IHE  HAhhEl  . 

EFTilLL  = .If  Lit  . 

V'llOLFL-  = .iHUc. 

C 

C DPILFT  »»ILL  r.L  SET  FALSE  iN  UmJiTH  (,T.[  k AIL  THE  BLACK  POWOLF  HAS 
C I'FLN  F'UFI  El'. 

Mf'ltfl  = .IRLE. 

FK't  =.F/  LSL. 

C 

C FKF  '.  ILL  Ht  St  I Thut  IN  PhFFK<  UTIF  !•  t’IMFtLLAT-|  IN  M LEAST  ONE 
C GF.JT  ll.lJirE.S. 


CAI  L Li'SLT 
L/  Ll  I Al  SEl 
f>>S'A\/1  = ^'>SAl/t 


♦ 1 


c 

c 

c 

C***  ♦♦♦♦♦•»♦»<■**♦’»*  + ♦♦•♦  **  * 


c 


111  LOFiJimul 

C PELLILO  LOGIC  LAI  Li.JG  TjBFAI  . 

PFli  = .FALiL. 

TF  (I- OL<  IHF  I''  r.NuiyCH)  .Eu.  il)  Hill  = .TFuL. 
C 


C SLITINI.  OunFT  Oi.  JIi; 

: f^4i4‘*********4*' 


' * ** 
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BEST' AVAILABLE  COPY 


SET  DUNMY  ChAMBEH  GRIDS  1 = ToXfl  THE  SAhL  AS  BAPPEl  GRIb  2 
AND  Dummy  barrel  grid  l as  the  vULuME-UiElCHTtD  AVERAr-E  i)F  chamber 
GRIDS  I = l\iGX. 

VBG  IS  0.0  AT  chamber  GRID  f\.Gx+l 

AREAS  AT  BARREL  GRID  1 WERE  it  T TO  BOREA  I.m  CHSET 
NPl  = HGX+1 

lEdjX  ,6E.  2)  GO  lU  140 
HMl  = NbX  - 1 
DO  130  J=l*uGP 

RtiOL'G  ( HPl  .o  ) = RHObfaCToM  1 , J) 

UbGdMPltJ)  = VP 
HbGC^'Pl.J)  = HBG(Nhl,j» 

PLrl(WPl«J)  = PCH(rJM.J) 
i-Hil.G(bP\,o)  = PHlbG(h’M,J) 

PHlPGBdN-Plt  J)  = PHlbG2(f'JHl,o) 

LPi5(MPl«J)  = L'Pb(ur'll  tU) 

130  COMIMlf 
f-n  10  lb5 


140  COr.'llHUL 

***Ot\;LY  need  VAUiES  at  grid  (APl,;>)  SIACE  GkIu  (.'JGX.l)  .alLL  AOT 
IHIE^ACT  RllH  lilt  barrel,  L tl  PHI  Bfc  ( fvPl  , 2 » GET  THE  TOTAL 
POROSITY  SIHlE  TmE  I'jTAL  POR  'SITY  ShOLLf  t.E  li\i  PHIBC  FOP  THE 
SUbRbliTlaES. 

J — 2 

RElOHG(r;Pl,  J)  = KH0G(2) 

Uuid'Jpl.J)  = L'3(2) 

HBG(NBltJ)  = hG(2) 
rCh(K'Pl.J)  = Bs(2) 

PEai.O(t.H.O)  = Plil(2) 

FHlE,G2«I.Pl.J)=PHl2:i2) 

PHlt't’(bPl  * J)  = 1.0 
UPHCNPl.J)  = OP (2) 

APEAR  (ME’l  ) =Mr'ASS  ( 2 ) 


PATH 


CuM  IIjUL 


■ ***(DUBMY)  barrel  toMO  1 IS  ACTUALLY  CHAMBER  GRID  d'K 
RHOG(l)  = r<H0Hb(i\)&A.2) 
liOd)  = UBGTNGX.i;) 

Ht(i)  = HbG(fGX,2) 

PG(1)  = PCH(M,X,2) 

Pr  J 1 1 ) =1 .0-  ( 1 .0-PH1BG(TjGX,2)  ) *AREAR  ( A sX  ) /BURE  A 
PEa2(l)  = 1.0-(l.l;-Phl8G2(rjGy  ,2)  ) *ARlAR  ( R'fcX  ) /BORE  A 
UF(1)  = UPt(r\'Gx,2» 

180  COMIHUL 
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nnn  n on  noon  noon 


best  AVAIUBlt  COW 


IF(.l\iuI.  hPIGI')  call  OPFIK 

logical  VAkJABLc  bPL-LFT  WiLL  61:  SET  TO  FALSE  iN  PRIFER  VvhE'^  ALL 
blaca  Puwolk  is  kUHImLD. 

IF(i..fLLFT)  CALL  PKIWER 
IF  (.POT.  Ol'EO)  cull  MFLOW 

PHPFIR  It  CAllEc  UfvriL  ALL  >-';,0PELLAf . ( IS  loMTEn. 

CALc  HAt'FIK 
FAI  L KLuRt.S 
call  PRFVtl 
C.  A I L r i'<  0 P t..  L 


PUT  iht  foiAu  pckosity  Into  array  plirg  fuk  ost:  iw  tfiE  path 

SUhROLl IulS. 

P('  190  Jrl.'VGf: 

I'O  190  l = l.i\GA 

PH/br-(liJ)  = Ph1c.G(I«J)  + FHIRtL’(I.J)  + PhIBP(I,J)  - 2,Q 
I9r  C.CMIINUE 

PAK  tUBROUT  iAe-3 

>1  = -Da 

(C  too  lx  =■  I.IMOX 
(•ti  tCU  1k=x.P 

IFA  = iPAImlX.IK) 

GO  TC  (2Cl.i;0i^»£U5»<i0H,^Ub)  iPA 

PCI  C/IL  AXIS 

C.  o T Cl  3 0 u 
?rp  CaIl  AX1T2 

CO  TO  3u0 
CALL  bSuRA^r 

L'U  TO  too 
204  CAlL  FSURTG 

OU  TO  too 
2Pb  CAIl  BSUKT2 

r.ci  TO  ioo 
’00  COM'ligUE 

UUG  ( 1 ) — LiiJb  1 D ( I'jL  X » 2 ) 

UHb(l)=hBGl: (IGx.i) 

UUP(l)=UPl.in  (MCA,  2) 

LFhOGd  )=h(iOBTt:  ( I'jCX«2  ) 


FIX  mRHAY  phlPi  SO  THAI  IT  GvfLY  REPRESENTS  PURfJ'ITY  OF  THE 
phoplllapt  and  1 ut  the  total  PO.<(jS1TY. 
no  o 1 0 0— 1 « NGF 
PC  510  1-1»NGX 
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nr>  n o n n nnnnnn 


1 

1 


BtSl  AVAllABlt  COPY 


PhluGdfJ)  = Phlbij(ltJ)  + 2.0 
310  CuMlf'iUL 


PHibPd.c)  - PHlFG2d.J) 


C 

C 
C = 
C 


BARPlL  SUBROUlliNftS 


IF  (..>  .LI  . 2)  bu  10  350 
CAl  L uIMi’i 

IFCioX  .UT,  i-iXSAWl)  CALL  bfiLYK 
CALL  i<MCUH 
CALL  PRCPPO 
35  C CCM\II''Jufc 

CmLl.  i'-iOI  1C^  . ' 


t.ipOAlE  Ar  0 LpTiI 

*if%it***-****-******-*^*^i 


' . * « 4 


1F(|V>  .LT.  21)  bO  10  360 
CALL  iMtv'jX 
PKll  = .TFbl. . 

360  CCFillNuE 

CALL  OPLIAIL 

IF(l>>'  - >()K)  .LT.  XLBAh)  (-.i  TC  290 
STOP 

390  COiVlIMUE 

IFd  IKE  .Ll  . IF  ) 60  TO  400 

Kpl  )L  (6.2CC'b  ) liMfc 

6T0F 

400  TIKL  = TIKE  + OLD 
IPPIK'T  = IPKIM  + 1 
C,G  TO  16 


1000  FORMAT ( 35l1  ) 

POno  FOFilAII*  TIME  =',E13.7t»  6u  i«f  bTOF  • ) 

200?  F0RMAT(lM0tbX.3bL3) 

2003  FORM/  1 dm  . *ARPA  Y luEBUG*) 

2004  FOR.-fA  I (lHfi»5X.4  1 2 3 5 t 7 b 9 1 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 

. If  19  ^0  21  .;2  23  24  25  2t  27  26  29  30  31  32  33  34  35*) 

EMU 


^ 
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f'  T 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBHOUTlNt  ARtAS 

COM',OI\i/l;AKhLS!/faUHLA«XP,  VP,l'UKFIJ»l.iOKEK,L(lKh  t!  i , DT2BU  , DTOst  « XL  [)AH 
COMf  AlM/CHAfi/lX.  IR  »Xb,KH.NCX»l'JGnt  IbtGH,  IPATIKAO  .5  » t ARE  AG  (^  ) , 

$ ARLACH,  AKLAC  (bO  ) .It.l\llT,Oi'Ll),L;lAM,LJiAM2tUlbl  « PI  S ? ♦ n i S , L.  I Sm  t 
$ AKEAK(fao)  » AHLAAXtLHAMl  .CHAi.2,CHAf  3 » Tbf’G  AE^ . ARE  AGP  ( GO  ) .LAUC* 

$ Ai\EAH2»DlAPf'  I .LtLEWn.BELbtb,  IPSl,  lE^*2  ,t<AliE'S,'iPl6r 
COMl-i0N/EQNb/r;lDX,T2lJR»T2UX.TW0TUR,UT0l-  tHhbt  f *OG  J.  UV  AX  IS  t HV  A>  IT  . 

$ [JX,UR*IMX»bJ*l  «0L)T  «HdP 
COM  iOl\i/P/  IPR  II.  I , -lOUCEi  * Mt)D(.r«  t HP  1 1 , lUEf.UG  ( 3b  ) 

LOGICAL  iGl'aT  ,OuLU.CHAMl,CHAfp,CHAE3,bHIbiJ 
LOGICAL  PR  I i t 1 1 L hLG 
UATA  PIUF/.7ob3':?6/ 


SUbRuUlir«;E  mkEAE  lALCULAIES  CtuJbo-SE  CTIL-Ij/^l  ArtLAS  AhP  VOLOME 
INCRt.PEr4TS  aSSULIaTLU  with  the  CHARtiER. 


* note  THAI  Eoi<  lOjPM  PROGKaH  CHA^2  IS  ALWAYS  TRUE 

* * 

AKLAAX  - AREA  CF  HELL  IGIMITEH  TUBE. 

ARLAGPd)  - AREA  OF  GAP  AT  TOP  UF  CHAMbEK  AT  AXIAL  GRID  I 

APEAC(I)  - AREA  OF  El\iTIKE  CMA'ibEH  aT  AXIAL  GRID  I k-HEN  CHaPEER 
BECOMES  ONE  dimensional.  SO  THAT  CALCULATIONS  IN  AXIS  GO 
SmUOIHLT,  AREAC(I)  is  IMTIALLT  ELT  TO  1.0  IF  ChAMl  IS 
TRUE  ANU  MREAAX  OTHLKUISF. 

mHEaR(I)  - Afu.A  OF  entire  lHAMUER  HINLS  THE  BELL  IGNI  lEH  TlEE 
AT  axial  grid  I IP  CHA’ll  UK  ChAi"l2  IS  TRUE.  IF  LHAM3  IS 
TRUE.  ARLAGPd)  IS  ALSO  SUBTKACUD. 

APEAG(J)  - GENLKALIZED  AREA  OF  RADIAL  GRID  J.  USED  FoR 

SETTING  DUMMY  CAKRLl.  GRID  1 PKUPLRTIES.  IF  CHAMP  IS 
TrLL  ArEAGII)  is  ARe:aAX  AiJD  AREAG(2)  is  AREAH(NGX). 

IF  ChAM3  IS  TRUE  AkEAGd)  AND  AREa6(2)  APE  THE  SAME  AS 
WHEN  CHAM2  IS  TRUE  AND  AREAS (3)  IS  AREAGP(NGX).  IF  CP  API 
IS  TRUE,  AREAG(J)  IS  SET  USING  OR. 

APLACH  - ARlaG(I)  + . . . + AREAGIIjGR) 

IF  CHAHl  IS  TRUE,  AKEAG  IS  USED  FOR  MAKING  THE  CHAMBER  OAE 

DIME  NSlUlMAL.  AT  EVERY  I.  IF  CHaM2  IS  TRUE,  AKEAAX  AND  AREARd)  ARE 

UStU  AT  GRID  I,  IF  CHAM3  IS  IKUE,  AHEAGP(I)  IS  ALSO  LSeD. 

FOR  UOTMIG  AND  UUTMBG  TERMS  VOLUME  INCREMENTS  ARE  NFEDEO. 

UVAXIS  - VOLUME  INCREMENT  OF  GRIDS  FOH  J = 1. 

UVAXIT  - VOLLMf  INCRLMEUr  OF  GRIDS  FOR  u = 2.  DVAXIf  WCULC 

need  TU  DL  AN  ARRAY  FOR  CHAM2  OR  CHAM3  TRUE  BUT  IT  IS  MOT 
NEEDED  THEN. 


AREaAX  = pIDF*GlAMbT*DlAMBT 
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no  nn  nnnn  nnn  nnnnn 


CALCULA1L  AKRAY  ARtAC  AND  KKor'i  IT  iiET  AKEAK 
XU  = 0.0 


THL  chamber  niAI'.ETCK  DECkEASIIS  LIwEAKLY  OvLK  UlSi  FRC(«  ulAhl  IC 
**♦  DIAN^;. 

SLCRE  = (L-iAM  - DIAr-2)/UISl 
DO  270  1=1. DGX 

UlAh  = LIAM  - bLOPE^XB 
AkLAC(I)  = H1LF*0IaM*DIAI“ 

AB  = XE  ♦ DX 

IF(  Xti  ,bT.  UISl)  tiO  TO  2c0 
270  CONIINUL 

200  NGF’l  = f-idX  + 1 

***SET  AFtAh  (Rt-Dl  > TO  bORLA  FoH  USE  IN  AX  112  AND  PROPEL 
ARFMR(NbPl)  = BOKi;A 

DO  360  1 = l.NGX 

ARE.aR(I)  = APLAC(I)  - ARlAAX 
CONTlIgUt 


360 


AREAC(NOPI)  ShUUuD  not  be  mfeqel  anywhere,  set  it  to  a large 
NEtATIVE  f.Li-iOEK  TL  CATCH  ARY  PLACES  WIiF.kL  IT  IS  DEFLED. 
AKEaC(NGPI)  = -lO.E+lb 


AlO 


DO  410  I = I.imGX 

AREAC(l)  = AREAAX 
CONTINUE 


♦♦♦  AREaG(I).  AREAb(2),  AND  AREACH  SHOULD  POT  BE  NEEDED  ANYWHERE. 
AKtAGd)  = -lO.E  + 15 
AREaG(P)  = -lC.C+15 
AKEaCH  = -lO.E+lb 
DVAXIS  = AREAAX»l)X 


500  CONTINUE 


2002 

2003 

2004 

2005 


IF(.NOT.  1LEUUG(6>) 
WRITL(6,2002) 

WRITE (6.20U3) 
WRnE(6,2u04) 
aR1TL:(6.2005) 
WRITL(b«200b> 

RLTURu 


RETURN 


(AKEAR(I).I  = 1.IMGP1) 

(AREAC(I)  .I:;1.NGP1) 
(AKEAG(I) .I=1«NGK) 


FURiiAK///.*  ARRAY  AREAR*,//) 

FURi'iAT  (9X,lOF11.7./» 
fopmaT(///.*  array  AREAC*.//) 

FORRAK///.'  ARRAY  ARE  Ab  * ♦ // ♦ 20X  . bFll , 7 ) 
END 
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SUfskoUTiNE  AXIb 
IX  lb  1 hERL  , Ik  IS  J 

rorhON/A\/GUT/l<HOTDTiPHiRHOiPHlAVE.RHnAVE.UHGAVE»UPBAVE, 
i UTHTtVBGAVEt V1U7 

CORMON/CHAI^/I  i.-'  , XB , RB , NGX  « NGH  » I bLGB , lENDB  t IPATH  ( f 0 » 5 ) * AREAG(E  ) , 
S AREACH,AkEAC(bO  ) . I GNIT  , OWED . 01  AM . D1 A^?  t OISl  1 01R2  . DI  S3  t D I S*4 « 

$ ARt  AR(60  ) « AREAAXiChAMl»CHAM2iCHAR3.7  0PGAP.  AREAGP(60  ) ,DA\/&, 

S AKEAH2,GlAHBT,RELErviD,BELf)EG,IPSl,  IPS2,RADPS,BPIGr! 
COr'-iMON/CLOOK/TlhE.DELT 

C0^M0^/EQ^S/DTDX,T2lJR,T2DX,TU0T0R,DT^R^HMb.  rWOGJ,DVAXIS,nVAXlT  , 

$ LXiORtNXtGJt  UuOT  tHBP 
C0M\0N/6ASC0(\,/RU  «RRO«CV0«CVh 

CO^kCN/BAG/PHI[JG(60»5)  t RH0RG(6U«b)»  HbGl60»5)t  OBf;(60t5)* 

1 VBG<bO,5),  UPB(G0t5),  PCH(bO,5),  T2C(fau«3), 

2 OOTMIG(GO),  &BAG(G0f5)«  XDRAG(G0,5)t  DOTnB(GO«5).  UPBDT(&0«E)t 

3 PH1BT0(60,5)  . RhOBTt)  ( 60 . 5 ) , HBGTD(60,b),  URGTO(60.5). 

4 VPGTD(60»5) .lbG(60«5) »DOTMBG(60) ,DOTMP(60,5) .PhIEP(6U«5)  . 

5 PKIPTD(6U»5)  .12K(60)  »TBP(60.5)  *PHI2riJ(60tb)  « 0PP2(b0t5). 

6 T7K2(60) ,TZC2(6U«5) iPHIBG2(60«5) 

LOGICAL  IC-^IT,Ol\iED»CHAf»l,CHA^2tCHAPl3^BPlGi^^ 

CATA  GRAV/32.16/ 

Rb  = 0.0 
XB=XB+DX 

CALL  GSPRCF’(RO*RRO»RtCVOtCVH.CV.pCh(I.J)  ,HBG(I,J)  .TDLM, 

$ RhOBGdiJ)  ,U6G(I«J)  tVBGdtJ)  tGAn«CP«2) 

BUGGER  = (GAR  - l,0)/TWOGj 
IPl  = I+l 
IM  = 1-1 


IN  This  subroutine  PHIBG  REPRESENTS  THE  TOTAL  POROSITY,  NOT  JUST 
POROSITY  OF  THE  PROPELLANT, 

F5  = PHlBGdfJ) 

AS  = AREACd) 

G2  = RHOBGdMlfJ) 

G4  = kHOBGdPltJ) 

G5  = RHOBGd.J) 

£2  = b2*UbGdMl,J) 

E4  = G4*UHGdPl,J) 

ES  = G5*UBGd,J) 

H2  = PHIBG(IHltJ)  ♦ AREACdMl)  * E2 
H4  = PHlHGdPltJ)  ♦ AREAC(lPl)  ♦ E4 
P2=PCHdMl,0) 

P4=PCHdPl,o) 

P5=PCHd,J) 

A2=AREACdMl) 

A4=AREACdPl) 

EI2=HBGdMl,  J)-PChdMl,  J)/G2/77fi.O 
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1 


c 


c 


c 


c 

c 

c 


c 


c 


EI4=:hBG(  IPl,  J)-HCH(  IP1»  J)/&4/77e,0 
E15=HbG(I,J)-P5/G5/77a,0 
C2=G2*EI2 
C4=G4*EI4 
C5=G&»EI5 


PHIAVE 

RHOAVE 

UB6AVL 

VB6AVE 

UPBAVE 


(PHIBG(IMl.J) 
(G2  + G5  + G5 
(UBGdhliJ)  + 
0.0 

(UPB(IPll,J)  + 


+ Fb  + F5  + PHIBGdPl.  J)  )*0,25 
+ &4)*0.25 

UBGdiJ)  + UBGd.J)  + UBGdPl.  J)  ) *0.25 
UPBCI.J)  + UPBd.J)  + UPBdPl.J))*0.25 


PHITDT  = PHIBTDd.J)  + PHI2TGd.J)  + PHIPTDd.J)  - 2.0 
KHCIDT  = ( F5=*KHUA\/E  - T20X*(H4  - h2)/Ab  + DELT*D0TMIG  ( d /DVAX  IS 
$ + DOTMBd.J)  + UOThPd.J)  )/PHlTDT 

PHIRHO  r PH1TD1*RHCTDT 
TEHM=0.0 

IF  tbOTMIGd  ) .LT,0.0)TER*1=1.0 


UTCT  = ( Fb»(E2  + Eb  + E5  + E4)*0,25 

1 - l2DX*(H4*UBGdPl,J)  - H2*UbGdMl.J) 

2 + GRaV  * AREACd)  ♦ PHiBGd.J)  ♦ (PCHdPl.J) 

3 - PCHdMl. J)  ) )/A5 

♦ +DELT*DOTWIGd  )*UBG(I,  J)/nVAXlS*TERM 

4 + DOTPbd.  J)*UPBd.  JJ  )/PHIRHO 

IF  ( ABS(UrDT) ,LT.  0.1  )UTDT  = 0.0 


VTDT  = 0.0 

IF ( PHI AVE,LT .0.999) CALL  DRAG ( XDK AG ( I , J ) , .FALSE. .I.J) 

HIGN  = HBGd.l) 

IF  < DOTMIGd)  .GT.  0.00001  ) HlGN  = Hbbd.2) 

ETDT={F5*(C2+C5+C5+C4)/4.0 
$-T2GX*  ( H4»L  14  + A4*P4/778, 0*(  PHIOG  dPl.J)  ♦UBGdPl.  J) 
$+d.0-P)iIh&dPl. J)  )*UPB(IP1,  J)  )-H2^EI2-A2  + P2/778.0^ 
$(PPlBG(IMl.J)*UBGdMl»J)  + <1.0-PHlBG(II'11,J)  )*UPBdM  ,J)  ) )/A5 
$+DELT*  (DOtMG  ( I ) /UVAXlS*HIGN-QBAGd  . J)  ) 

$-Xr)KAGd  , J)^UPbd  , J)*DElT/778.0 
$+UOTMBd  . J)*(HI“lB+UPBd,  J)^*2/TW0GJ) 

$+LOI  FiP  d . J ) ♦ ( HBP  + UPB  (I . J ) ♦♦2/TWOGJ  ) ) /P).IRhO 
CALL  GSPROfMKO.RRO.K.CVo.CVH.CV.PN,  ETDT.TDuH, 

$RHOlDT.UTl)T.O.O.&Al“i«CP.4) 

HBGTDd.  J)=F-TbT+PN  /RhOTDT/77£J . 0 

RHCbTUd.J)  = RHOTDT 
UBGTDd.U)  = U7DT 
VBGlDd.J)  = VTDI 
RETURN 
END 
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SUBhOUTINE  AXIT2 

SUBROUTINE  AXIT2  IS  CALLED  FOR  GRIDS  IN  THE  2ND  RADIAL  ROW  UHE^ 

THE  CHAMBER  HAS  *>  SEPARATE  ONE  DIHENSIONaL  ROWS, 
COhHON/AVOL'T/RHOruT  .PHIRHo.PHIAVE.RHOAVE.UBGAVEtUPRAVE  , 

$ UTDT,VBtiAVE,VTnT 
COMMON/GRIDNX/UXPKIM 

COMMON/CHaM/I  , J ,XbtRB,NbX,NGK» IBEOB, IENDB. IPATHlf 0»5» . ARE  AG (E ) , 
$ AREACH.AREAC  (60)  1 1GNlT,0hE0,DIAMl,0lAM2.DISl»DlS2.DIS3.DIS<< . 

$ AREAR(60) «AREAAX,CHAMl,CHAM2.CHAM3,TOP&AP»AREAGP(feO) ,CAVG, 

$ AHEAH2,DlAMbT,BELEN0.bELBEG, IPS1,IPS2,RAUHS,BPIGN 
COMMON/CLOCK/TIME,DELT 

COMMON/EQNS/DTDX,T2URfl2DX.TWOTDR,DTDR»HMb»TWOGJ,DVAXlS.nVAXn  , 

% DX,DR,NX«GJ,TW0DT «HBP 
COMMON/GASCON/RUiRRO.CVO.CVH 

CUMMON/HAG/HHIBG(bO,5) » RHOBG(60«b)»  HbG(60i5)»  UBG(60,b)» 

1 VBGCGOfb),  UHb(b0f5)<  PCH(60«5)«  TZC(G0«5), 

2 DOTMIG(fcO),  0bAG(G0t5>,  XnRAG(60»5)t  DOTMEMGOtS),  UPBHTEGO.E). 

3 PHIBTD(b0.5) » RHOBTD(60»b) , HbGTD(G0,5).  UBGTD ( 60 t 5 ) « 

4 VBGTD(60,5) » TbG ( 60  * 5 ) . DOTMBG < 60 ) » DOTMP ( 60 , 5 ) t PHIRP ( 60 t 5 > t 

5 PHlPTD(60tb) ,TZH(faO) tTBP(60.5) iPHI2TD(60,5) . LPB2(60»5)» 

6 TZR2(60) ,T2C2(60t5) »PH1BG2 ( 60  * 5 ) 

LOGICAL  IGHII tONED*CHAMl»CHAM2tCHAM3,bPlGN 
DATA  GKAV/32.1b/ 


SAVE  DX,  change  TO  UXPRIM  WHEN  1=NGX,  NX=1, 

DXTEMP=DX 

IF( X.EQ.NGX.AND.NX.EO.l )DX=DXPR1M 
T20X=DELT/(2.0*DX) 

CALL  GSPROP(RO.RRO.K.CVO»CVH.CV,PCH(I,J) ,HbG(I,J) ,TDUM, 
$ RHObGd  , J)  .UbG(  1 1 J)  , VBG(  I,  J)  t GAN<CP*2> 

BUGGER  = (GAM  - 1.0)/TWOGd 
IPl  = 1+1 
IMl  = I - 1 


IN  THIS  subroutine  PHIbG  REPRESENTS  THE  TOTAL  POROSITY,  NOT  JUS! 

POROSITY  OF  the  propellant. 

F5  = PH1BG(I,J) 

A5  = AKEAR(I) 

G2  = KH0BG(1M1,J) 

GH  = RHOBGdPl.J) 

G5  = KHOBGdfJ) 

E2  = G2»UBGdMl,J) 

E4  = 64«UBGdPl,J) 

E5  = &5»UBGd,J) 

H2  = PHlBG<IMl«J)*AHEARdMl)*E2 
H4  = PHlBGdPl,J)+AKEAR(IPl)*E4 
P2=PChdMl,d) 
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c 


c 


c 


c 

c 

c 


c 


P4sPCi-:«  IPI.  J) 

P5sPCH( I , J) 

A2=AKEaR(1«1) 

A^sAREAKC IPl ) 

A5=AREAH( 1 ) 

EI2=HBb(  IMl,  J)-P2/liJi/77e.O 
EI4=HB6( IPl»d)-P4/b4/776.0 
E15=HBG( I ,d)-P5/b5/778.0 
C2=62*LI2 
C4=b4*E14 
C5=:Gb*El‘b 
VOL  = AKLAK(I)*OX 

PHIAVE  = (PhlBG(  IMlf  J)  + F5  + F£  + f’hlBC  ( IPi  i J ) ) *0 . 25 
KHOAVt  = (b2  ♦ Gb  + 65  + G4)*0.25 

UBCAVL  = (UBGdhl.d)  + Ubb(I.J)  + UBGtl.J)  + UBG  ( IPI , J ) ) * 0 . 25 
VBGaVL  = 0.0 

UPPaVE  = (UPB(lNl.d)  + UPB(I.J)  + UPB(I,J)  + UPP ( IPl . J ) ) ♦ 0 . 25 


PHIIDT  = PHIblD(I.J)  + PH12TD(I*J)  + PHIPrOd.J)  - 2.0 
RMOTUT  = ( Fb*KHOAVE  - T2DX>*(H4  - H2)/Ab 

1 - DELT*(l?OlMied  ) - DOThBG(  I ) )/VUL 

2 ♦ t/OTMbd.J)  + DOTNPd.J)  )/PHlTGr 
PHIHHO  = PHI FLT^MHUTnT 

TERMlsO.O 

IF (U0TM1G( 1 ) ,bT.0.O)TERMl=l,0 
TtRfi2=0.0 

IF (uOTMPG( 1 ) .LT.O.O )TERM2=1 .0 


UTUT  = ( F5*(L2  + Lb  + E5  + E4)*0.2b 

1 - T2t)X»(H4»UBG(  IPl,  J)  - H2*U6bdHl,d) 

2 ♦ GRAV  » AKEAKd)  * PHlBb(I,J)  * 

3 (PCHdPl.J)  - PLMdMl.dj  ) )/A5 

♦ -DELT*(DCTPIbd  >*UBbd,d)*lERhl-(rJOTF'LiO(  1)*UBG(1,  J»* TLRM2)  )/VOL 

4 + [ OTMbd,J)#UPBd,J)  )/PHIRHO 
IF  I AbS(UTDT)  .Ll  . 0.1  )IJTDT  = 0.0 


VTUl  = 0.0 

IF (PHI AVE. LI ,0.999) CALL  CR AG ( XUK AG ( I , d » , . F ALSE . , I i J ) 


HIGH  s HPGd.l) 

IF  ( OOTMIG(l)  .GT.  O.OOOOl  ) HIGI\»  = HBbd*2) 

HUGH  = HBGd.P)  * 

IF(UOTMtG(l)  ,bl.  0.00001)  HGGH  = HBG(l.i) 

ETDT=(F5*(C2+C5+Cb+C4)/4.0 
$-T2LX»  (h4*LI4  + A4*F4/77P,0»  (PFiIBG  ( IPl , d ) ♦bbb  (iPl , d ) 
S+d.0-PHlBG(  IPl,d)  )*UPBdPl  , J)  )-H2*EI2-«2*P2/778,0* 
$(PHlBGdMl  •d)*UbG(  IMl»d)  + (1.0-PFiIEiG(  IMl.u)  )*UPB(  IWl  ,d  ) ) ) /A5 
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$+DE:LT*(  (DOTMBbd  )*HbGN-uOTM&(  1 )*HIGM)/V0L 
$-dBAG( I« J>-XDRAG( 1 t J)«UPB( 1 , j)/77e.U) 

$+DOTMB(It J)*(H«B+UHB(Ii J)**2/TW06J) 

$+UOTPP« I» J)*(HBP+UPb( J)**2/TW06J) )/PHlKhO 
CALL  GSPKOF (HO.KKO»RfCVO»CVH»CV.PN,  tTUT.TDUM, 

$RH0TDT,UTCT ,0.0»GAM.CPt4) 

HBGTD{  I.  J)=ETDT+Pfy  /PHUTDT/778, 0 

C 

RHObTD(ItJ)  = HhOTDT 
Ut3GlD(I,J)  = UIDT 
VbGTDdtJ)  = \/IUT 
C RESTORE  DX  AMJ  T2UX 

DXsuXTEPP 
T2CX=DELT/(2.0»UX  ) 

KETURrj 

END 
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SUBKOUTINE  BARSET 
COMMOt'j/DETNX/  NXSAVt 

CO^if'.ON/CHAi'^/IXtlK,XBtRbtNeXtUGRtIBEGB,lEr.OBtIPATH(f,Ot5)  tAREAGc;  ) , 

$ ARLACH.AREAC  (60  ) . lGIMIT,Oi'iEDtLlAMl.UlAf'?tOlSl  »DlS2»ni  JsB.BISM  . 

% AREAR(60)  tAREAAXtChAKl  ,CHA^f2f  CHAW3,  I OPt  AP  » AREA6P  ( (.0  ) ,EA\/G  , 

$ Ahf  AH2»DlAMBT«Bt-LtNU.bELHEG,  IPSl  ,IPS2tKADPS,BPlGX. 
COI^hON/BARPL2/BOREAf  XPtVP.t  OHED, BORER, bOKLGa,nT2PL),nTD«3w»XLbAR 
COHMON/CLOCK/TiML.DELT 

COPMO^^/EQ^S/DTDX,T2UR,T20X,TWOTC•R,OTDR,M^5,  rW0GJ,DVAXlS,nVAXl  T , 

$ DX  , OR , NX , OJ  , T miuUT , H6P 

CUP^,ON/GRAllM/  XL(bO,b),  DCMbO,b»,  01(60,6),  Ptyi, 

1  XL1LI(60,6),  DoT0T(6U,6),  OITOI ( 60 , S ) , XLO,  DUO,  OlO. 

3XLB(1U0  ) ,UXLB(  100  ) ,XLB2(10G  ) ,UXLP2(10l. ) ,EGP  ( ] 00  ) ,UnOB  (100), 
$DOB2(100  ) ,00002  (100),01u(10  0),UOlb(100),01B2(lDO)  , ('(UR?  ( 1 0 0 ) ,C  102, 

3 0(^02,  XL02,XL2(bU,  5)  ,002(60,6)  ,C;I2(60,b)  , XL2TCT  ( 60  , P ) , 

4 lU2rDT(60,6),  U12TDT(60,6) , FN2 
CUBM0N/GRAlN2/hKril , HMB2,  ATPP2,  CT2,  KIIUP2 , PEXP2 
COPl'iON/GKlOCjX/DXPKlM 

COPhON/INPU)S/Cl,C2,C3,(.4,TO,TIGN,OCOlMS,KiMOP,PHIO  ,TF  ,CA,RHC)0, 

$ PO  ,PO,UO,bTKhOP,hi((,OM,0«2,TIGNBP,OBCOi\i6,  TOTM,DIFFPH 
COr‘flOU/MOCON/COi'l3,CoN4,CON5,  AREAPB,20,WOB,XuB,FDMAy  ,PI\LR, 

$ CF ,KALPb,PMASS,XINT,PINT ,xLO,PLO,CONb 
COMhOiM/P/  IPKIWI  , MOOCH  ,«oDGR  , PR  1 1 , lOEBUG  ( 35 ) 

COPMON/BARKL/  HHldOO),  RhOG(lOO),  HG(10(;),  UG(IOO),  (KMIOC), 

1 )G(10C'),  T(.  (100),  PMOOT(IOO),  &L(100),  Ul'R  AG  ( 1 0 0 ) , F '•»  iC  T ( 1 0 C ) t 

2 PLONVdOO),  UuPdOO),  UPHIdOl),  OPHOt)(lOO),  UHG(IOO),  UUGdCO), 

3 AhASSdOO),  AMOMdOO),  AENERdOO),  UmMASS(IOO),  (JAFOMdOC), 
4UAFl«.LK(100)  ,Pnl2(100)  ,UPhl2(100) 

LOGICAL  PPll,IOEBUb 
DATA  bf<AV/32.1b/ 

NAMELlST/bARI|\,P/RADPB,PMASS,PINER  ,i;F  ,XLbAR, 

$ P^JO  ,WOa,POHAX  , X luT,  PINT  , XLO,  PLO 
REA0(5,bAPlNP) 

IFdOEBUG(7))  inKITE(6,BAR1NP) 

NX  = NXSAVL 

RAOPB  = RAOPb/12. 

XLPAR  = XLbAR/12, 

WOP  = WOB/12. 

DEPTH  = DEPTH/12, 

XOB  = float (NX  - 1)*DX 
XINT  = XInT/12. 

XLO  = XLO/12. 

PZO  = PZ0*144. 

PUFaX  = P0MAX*144. 

PIFT  = PINT*144. 

PLO  = PL0*1H4. 
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CONSTANTS  FOR  BARRLL  SUBROUTINES 

^Hi^^*i^t.^Hl*********  *************************************  **************** 

CONSTANTS  FUR  SUBROUTINE  MOTION 
ARfcAPb  = S.mib^i  + RAOPB^RArjHb 
CONb  = 0.5*DELT*OEL1 
C0^4  = (PUMAX  - Pi!0)*AREApB/WOfl 
CONh  = (PDMAX  - Pli'jT)*ARtAPb/(  XINT  - nJUb) 

FCMAX  = PDMAX*AREAPB 
70  = PZ0*AKEAHB 

cors  = t (PIM  - PLOJ/(XLU  - XINTJ  )*AREAPtj 

imihally  the  projectile  is  nut  moving 

XP  = XOB 
VP  = 0.0 
DXPRIM  = D> 


constants  for  subkuutine  bkulyr 
RORLDd  = bUKED/b.O 
UTTibU  = DEL.  T*noREU>^BUREu 
DT2BD  = -0.b*L)ELT/UUREU 


constant  FUK  SUbKOUTINL  PROPMO 
GTPhOP  = GRAV*UELT/RH0P 

FINIST.  TOTAtLli.b  THE  GAS  MASS.  NOTE  THAT  Phi  IS  1.0  NOj. 

IF  (i\iX  .EO.  1)  GO  TU  SO 
IFTNX  .LQ.  2)  GO  TO  ?b 

TOTM  = T0TI-.  * ULUATTNX  - 2)  + 0 . b ) *RhOu*bOK£A*DX 
60  TO  30 

?b  TOTM  = TOTM  + 0 . b*RHOO*BORt A *DX 
30  CONTINUE 

NAMLlIST/BArChk/RAUPO.wOB,BOREUiXOR« 

S CON3.CON4,Cujjb,ARLAPB,XP, VP. BCUEA.GTKhUP, borer, bOREDfl.nTLSQ, 
$ UI2bD,T0TM, vX.CUNb.FUMAX.ZO,  X INT , XLC i PZO . POM A X , PINT , PLC 

IF  ( IClEBUGCfc  ) I URITLTF.BARCHK) 


********************************************************************** 
initialize  BARREi.  ARRAYS 

*********************************************************************** 
CALI.  CLEARTPHKI)  .UAENERTIOO)  ) 

CALL  CLEARTXLud)  , 00102(100)) 


IP (NX  .EQ.  1)  GO  TO  60 
CO  bC  1=2. NX 


iUiaBa 


onnoon  n n n n no 


RHOb(I)  = HHOO 
HG(I)  r Ho 
PGd)  = PO 
U6(l)  = UO 
TG(I)  = To 
AMAbS<I)  = DUKLm 
AMOh(I)  = bClsEA 
ALNLK  ( I ) = UOrtt-A 
llAMASSd)  = BORLA 
L)A^OMd)  = libRl-A 
UAFNEKd)  = bOKtA 

P^DDT  AMD  U^  HAVE  ALKE.ADY  BEEN  CLEAHEn 
50  CONTIuOL 

SET  mHLAS  at  BaAKEL  GRID  1 TO  HOPE  AREA  OE  BARREL, 

FOi:  THE  lObf'i'  HkOGPAH,  HOUt-VER,  SET  AREAS  AT  BARREL  GRID  I TC 
ARtA^(^6X) . 

60  COMII.mUL 

APtAbSd  )=HURE« 

UARASS(  1 )=f.u;<EA 
At10l“i(l)=B0KLA 
UAp.uM(  1 >=HDr<EA 
AETLKd  )=BOr<EA 
UAEaEk  (l)=bOi<LA 


SET  ALL  LNTKlEi  IH  AKRATS  Pul  AuL  LlPHI  lU  l.O  SC  TelAT  PHEN  CKILS  Ah 
THLFL  WILL  LE  NO  HROPELLaNT  IN  TFEN. 

PHKl)  AND  UPMld)  vkILL  be  SET  li\i  MAIk  lLFCKE  ANY  BARREL 
♦ CAl  LULAT  IGI-S, 

no  BO  1 = 2,100 
PHId)  = 1.0 
UPHId)  = l.U 
PHI2JI)=1.0 
UPI.12d  )=1 .0 


30  CONdiMUt 
RE  torn 

riuri 
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subroutine  hnulir  I: 

c 

C0riM0N/bAHhL2/UURt  A . XP . VP  . BOREO  * BORER  « t30RtD8  t DT2BU , PTDSU 
COI^HON/UETNX/NXbAVL 

COMhON/EQNS/DTUx,  r2DRtT20X.  TtiOTBR  .DTDRtriPB.  TwOGJ,OVAXI3,nVAXn  t 
$ LXtURtNXtOJtTuOUTtHBP 
COMMON/GASCufJ/KUiRKOttVo  tCVH 

COf-ihON/lNPLiTS/Cl  ,C2tC3.C4,Tu.TIGNtOCONS,RHOP»PhIO.TFtCrtiRHG(Ji 
$ HO,PO,UOt6TRHOP,H«(,DMtUh2.1  iGNBP.OUCOflS.TOTMtDIKFPR 
COWhON/BAKRL/  PttldUO).  RHOG(1UO)»  HG(l0U)t  UG(100)t  IJPdOD, 

1 POdOO).  TGCIUU).  PMOOTdOO)t  QLdOU).  UDRAGdOO).  FRlCTdOOt 

2 OCOUVduO),  UUPdOO)t  UPflldOO*  URHubdOO),  UHGdOO),  UUGdCO), 

3 AhASSdOO),  APiOP!dOO)«  ALNERdOO)*  UAbASSdOO).  UAI“OMdn())t 
‘lUAENEKdOO)  .PhI2dOU)  iUPhl2d00) 

REAL  rtACriSU 
LOGICAL  KLPLAT 
DATA  KEPEAl /.False./ 

DATA  FIDF/. 785398/  i 

C SUBROUTINE  BNDLYK  CALCULATES  THE  THICKNESSES  OF  THE  BOUNDARY  EATERS 
C FORPED  AS  PKOPELLAMT  GAS  FLOWS  THROUGH  THL  BAKRFL. 

C AMASS  IS  THE  AREA  AVAILABLE  FOR  MASS  FLOh 

C AMOM  IS  the  area  OUTSIUE  THE  MOMENTUM  LAYER 

C AEMER  IS  THE  AREA  OUTSIUE  THE  EnEROY  BOUNDART  LAYER 

C IT  ALSO  CALCULATES  OL.  THE  HEAT  TRANSFEHKLU  FROM  THE  GRID  TO  OR 
C FROM  THE  BARREL. 

C ARRAY  HL  CONTAINS  U.0»S  AT  THL  BEGINNING  OF  EACH  TIME  INTERVAL,  1 


i 


C 

IF(REPEAT)  go  to  10 
REPEAT  = .TRUE. 

NXSAVl  = NXSAVE  + 1 
C 

10  CONTINUE 

NMl  = NX  - 1 
ITEMP=NM1 
C 

SPDX  = 0.0 
DO  60  I=NXSAV1«NM1 

U =(UGd  )+UGd  )+UGd-l  )+UGd+l)  )*0.25 
IPCIJ  .LT.  10.)  U = 10, 

USO  = U*U 

STATIC  ENTHALPY 

hSTAT  = (HG(i)+HGd)+HG(I-l)+HG(I  + l)  )*0.2b-  ,2E-‘4*US0 
CALL  GSPROP(RO»RRO»R«CVO*CVh,CV,PG( I ) .HSTaT.TSTaT .RHOUUM, 
X 0.0,0.0«GAMtCP.3) 

GAMl  = GAM  - 1,0 

GAM3  = (3.0*GAM  - 1.0)/(2.0*GAM1) 

VISCOSITY 

VIS  = C1*TSTaT*SQKT(TsTaT)/(TSTAT  + C2) 
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REYNOLU’S  NOhBER/FOOT 

PE  = (KH0G(  I )+RH0G(  I )+P.HOG(  1-1  )+KHOb(  I + l ) )*0,25*U/vlS 

MACH  NUMBER  SQUARED 

MACHSU  = US0/(32,16»GaM*K*TSTAT) 

MACH  NUMBER  WEICHTING  FUNCTION 

PRESX  = MACHSU*l1ACHSQ/(  (1.0  + 0 . 5*UaMi*MaCHSQ  ) »*GAl'"d  ) 
PDX  = PRESX»UX 
SPUX  = SPPX  + POX 

EOUIVALLNT  FLAl  PLATE  LENGTH 
F.XF  = SPDX/PRESX 

REYNOLD'S  NUMBER 
REX  = RE*EXF 

GFUNl  = (1.0  + 0.25»GAM*MACHS(^)**(-0.7) 

6FUN2  = (1.0  + 2.0*GAMl*MAChSQ)**0.44 
1F(  RLX  .LT.  b.OEG  ) GO  TO  50 
REF  = LXF/KEX**0.1b67 
DELTA  = 0.23*REF 

IF(DELTA  .LT.  BORER)  GO  TO  20 
ITEMP  = I 
GO  TO  IbO 

displacement  boundary  layer  THICKNESS 
20  CONTINUE 

DELSTR  = 0.0i?8*GFUN2=*-REF 

MOMENTUM  BOUNDARY  LAYER  THICKNESS 
THETA  = 0.022*GFUN1*RlF 
GO  TO  40 

30  REF  = LXF/REX*»0.2 

DELTA  = 0.57*REF 

IF(DELTa  .LT,  BORER)  GO  TO  35 
ITEMP  = I 
GO  TO  150 


35  CONTINUE  ] 

DELSTR  = 0.04G*GFUN2*REF 
THETA  = 0,03b*bFUNl*HEF 


ENERGY  BOUNDARY  LAYER  THICKNESS 
40  DELDST  = 1.269*DELSTR/(DELSTR/THETA  - 0.379) 


MASS  FLOW  AREA 

UAMASSd)  = PIDF*(B0REL'  - 2. 0*DLLSTR  ) **2 
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FLOW  AKk  A 

UAMOM(l)  = tlDF*(HOKfn  - 2 . U + THL1 A ) ** 3 
EiMLKLY  FLOW  AHEA 

UALKEKd)  = HIDF*  (bOhLL  - 2 , O^OLLUS  1 ) **2 

AVLRm&L  ( KtFLHLiMtt.  ) LMHALHY  1,\)  bOOIlOAKY  LaYER 
hSTAK  = 0,b4-(hG(I)  + bW)  - b.l2eE-b*U&U 

call  GSf'KOk  (Ku  .KKO.R  .CVO  iCVH.CV  ,PG(  I ) , HSTAH  i TSTAR  , RhOSTF  , 

♦ O.OtO.OtGAM.CP.4) 

CALL  bSPROH(RO  .KKUtK«CVu«CVh.C\/,PbUM,llb(  1 ) , 

♦ Tt)UM«RHub(  1 ) »li,0.0«bAh«CP,2  ) 

GAMl  = GAM  - 1.0 

MAChSQ  = USij/(32.1fc*GAr  ♦K  + TGTAR) 

VISTH  = C1*IG1AK*SURTi1STaK)/(TSTAR  + C2) 

RLSTRX  = RhOSTR-»U/VISTR*F.XF 

COI^PKF.SSIBLL  SMh  FRICTION  COLFFlCIFUT 

CFR  = (1,0  + GAl“ll*GAMl#f“iACribQ)**(-0.b) 

ODOT  = u.03Gb*VlSrR/EXF  * RLSTRX**0.6  * (HGd)  - H*i»*CFR 


HEAT  FLUX 

QLd)  = 3.imb93*B0RE0*DX*QDCT 


60  CONTINUE 
RO  10  200 


100  CONTINUE 

00  110  I = IMXSAVl,Nl11 
UAMASSd)  = BOREA 
UAMOM(l)  = bUKEA 
UAENERd)  = BOREA 
110  CONTINUE 
GO  TO  200 


150  CONTINUE 

I = ITEMP 

II  = I - 1 

UAFASSd)  = UAMASSdl) 

UAMOMd  ) = UAMOndl ) 

UAENERd)  = UAENEHdl) 

C 

RED  = RE*BOREU 

EPSLON  = (j.OOOb*ALOG(REU)  - 0.0U5bfa 
IFCEPSLON  .LT.  0,0001)  EPSLON  = 0,0 
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C 

LAMBDA  = 0.3164/R£:D**0.25  + EPSLON 
C 

U=(UG(  I )+UG(  I )+UG(  1-1  )+Ut>(  I + l ) )*0.25 

RHOU  = (RHOb(l)  + KHOG(I)  + RHOG(I-l)  + RHOG  ( 1 + 1 ) ) *0 . 2‘5*U 
LAMU  = LAhbUA*U 

B0KEU6  IS  BORED/0. 

FRILT(I)  = LAMU*RhOU»BOREDfc 

DT2PD  IS  -0.5*ULLT/DUR£D 
0TDS6I  IS  DELT  *B0RE0*B0RED 

QCOlViVd)  = PIDF*((HG(I)  + HG(I)  + HG(I-l)  + HG  ( I + 1 ) ) * 0 . 2 5 - HU  » 
* *(1.0  - EXP(LAMU»DT2bD) )»RH0U*DTDSU 


12  = I+l 

DO  160  1=^XSAV1»NM1 

UAhASS(I)  = UAHASS(Il) 

UAMOMd)  = UAl-'iOrldl) 

UAEIMERd)  = UAEt'JERdl) 

U=<UGd)+UGd)+UGd-l  )+UGd  + l)  )*0.25 
IF (U  ,LT,  10. ) U = 10. 

USQ  = U*U 

hSTAT  = (HGd)  + HGd)  + HGd-1)  + HGd  + l)J*0.25  - .2E-H  + LSQ 
CALL  GSHROP(R0»RRO.R.CV0tCVH,CV,PGd ) , HSTaT , TSTaT , RHOUUM , 

$ 0.0»0.0.GAM»CPi3) 

VIS  = C1+TS;a1*SQRT(TsTaT)/(TSTaT  + C2) 

Rhou  = (RHOGd)  + RHOGd)  + RMOGd-1)  + RHOG  (I  + 1 ) ) #0 . 25*U 

RED  = RHOU/VIS*uOKED 

EPSLON  = O.OOOb*ALOG(RED)  - 0.00550 

IF(EPSLON  .LT.  0,0001)  EPSLOM  = 0.0 

lambda  = U.3lb4/RED**0.25  + EPSLON 
LAMU  = LAMbDA*U 

FRICT(I)  = LAMU*RHOU*bGREU8 

eCONVd)  = PIDF*((HG(I)  + HGd)  + HGCI-l)  + HGd  + l))*U.25  -HW) 
$ *(1.0  - EXP(LAMU*DT2BD) )*RHOU*DTUSQ 

160  CONTINUE 


200  CONTINUE 

DO  220  1 = NXSAVl.NMl 
IFd.GE.ITENP)  GO  TO  220 
IP1=I+1 

IFd.EQ.NMl)  1P1  = I 

UAMASSd  ) = (2.0*  AMASSd  ) +2.0*  AMASS  ( I -1 ) +2 . 0*  AMASS  ( IPI  ) 


77 


non 


♦ +UA«ASS(  1-1  )+UA^.ASS(  IPl  )+UAI^AJ>S(  I ) )/V,0 
UAMOMd  ) = (2.0*AMOM(  I)+2.0*AMOM(  I-l  ) +2 . 0*AhOl“l  ( IPl ) 

♦ +UAI"l0r'l(I-l)+UAi'1Uh(IPl)+UAl«,0M(I)  )/9,0 

UAENEKl  I)  = (2.0»AENLH<  I )+2,0*AF.NLR(  I-l  )+2.0*AEA.E:R(  IPI ) 

♦ + UAENEK(l-l)+UAENEK(I)+UALMtt^(IPl)  )/9.0 
220  COMIIMUE 

LET  AREAS  AT  THE  BASE  OF  THE  PROJECTILE  OE  THE  SAME  AS  THOSE  AT  THt 
GRID  IMMEDIATELY  PKECEDING, 

UAMASS(rjX)  = UAMASS(NMl) 

UAMOM(NX)  = UAMUM(l\iMl) 

UAENER(NX)  = UAENLR(NMl) 

RETURN 
C 

END 
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SUtHOUTINE  bPFIK 

COMMON/  CHAKGE/  LHTC,  iBEbC 

COMMON/BPT/  Tt;P(ii) 

COMMON/CHaM/IX»  IR,Xl3,KB,N6X,NfaRi  IBEGBt  lENOB*  IPATtK  60 .5)  . AREAG  (E  ) . 
$ AHEACH,AREAC(60)  » IGNIT  , OhED  . UI  AMI . Ul  AM2  . OlSl  t PIF,2  * 0153  t DISA  i 

* AREAR(60 ) . AREAAX.ChAMliCKAMPf CHAMStTCPtAPtARLAGPCfeO ) ,DAVGt 
$ AKEAH2t0lAf'B1  ,BELENOtBELbEb,  IPS1.1P52,RAUPS,BPIGN 
CUMMON/CLOCK/T IME . BELT 

COMMON/ INPUT S/Cl, C2. C3,C4,ro.TIGN,OCONS,KHOP, PHI O.TF.C A. RHOO, 

$ HO.PO.UO  ,GTkHUP,hW,DM,DM2,  T lGlgBP,UB(,Ui\jS,TUTM,DIFFPR 
COMMON/P/ IPR IN  r , MOOCH , MODGR , PR  1 1 , ILEBUG ( ib ) 

COMMON/PH IMV/HPOENS.BPR ad (faO ,5) , AGE NPP , BGLNBP , LXPBP 
C0MM0N/bAG/PHIbb(o0,5) . PHOBb < bO , b ) , MbG(bO,5),  UBG(60,5), 

1 ‘yBG(60,5),  UPB(faO»5),  PCH(6i),5),  TiC(fc.o,b), 

2 UOTMIG(bO),  &BAG(60,5),  XDRAG(bO,b),  D01MB(60.5),  UPBDT(bO,E), 

3 PHlbTD(bO,5)  , HhObTD(60,S))  , HbbTn<60,5),  URGTD(60,5>, 

4 Vf>bTD(60,5)  ,TBb(bO,5)  , DOJi-IBG  ( bC  ) ,DOTMP(60,5)  , PHI  BP  (60, 5)  , 

5 PHIPTU(bO,b)  ,T2H(bO)  *TBP(bo,b)  ,PHl2TU(b(J,t))  , OPRii  ( 60 , 5 ) , 

6 TZK2(bO)  ,TZC2(t.0,b)  , PhIBb2  ( bO  , b ) 

LOGICAL  IGNIT,0NE0,CHAMl,CHAI-'i2,CHAM3,bPIGN 
LOGICAL  PR11,IUE3UG 

ARRAY  UIBAG  IS  CLLAKEL)  IN  UpfjATF.  LACh  TIME  INTERVAL. 

BPICN  taILL  REMAIN  TRUE  ONLY  IF  AT  EACH  GKIU  THERE  IS  NO  BLACh 
POkDLF:  OK  THE  BLACK  POWDER  IS  IGNITED. 

BPIGN  = .TkuE. 

DO  100  J=1,N6R 
DO  100  1=1, NGX 

iF(PHiriP{iiJ) .Gt .u.yygsy)  go  to  luo 

lF(Tbp(I,J)  .GL.  TIGNbP)  GO  TO  lOo 
BPIGN  = .FALSE. 

GAS  temperature 

TlX  = TRGd.J) 

TEMP  = TTX*SGKT(TIX ) 

GAS  VISCOSITY 

TXMU  = Cl*  ILfiP/(TTX  + C2) 

THERMAL  CONDUCTIVITY  OF  GAS 

TXK  = L3*TL  MP/(TTX  + C4 ) 

REYNOLDS  NUMBER 

KETXBP  = RhGBG( I , J)*AbS( JBG( I , J) ) *bPKAO( 1 , J )/TXMU 
NUSSLLl  NUMBER 

IF  (KFTXbP.LE.l  .Of  -1  0 ) TXMUDP  = 0 . 000bl^*pf  ( I , U ) **U  . 556/ T <K  ♦ 

1 bPKAUd.U) 

IF  (kETXbP.GT.1.0E-10)lXNUbP  = 0.3*RETXFjP**0.b2  + 
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1 0.0  00613*HCH(  I , JJ»*0,bt>6/lXK*ni  RK.1U  1 »>J) 

TXNUt3P  = TXrjUdP»u.b 

BPKAiid.J)  SHOULU  IMUT  HL  LPSS  THAN  0.0U1»  BECAUSE  OlHEpiJISE 
PHIE!P(1,U)  WOULD  have  BEEfj  SET  TO  1.0  Hv  PKIHEK. 

AUVBP  = 3.0^(1.U  PMIPPi  I , J)  )/BPHAD(  I*  0) 

HEAT  FLUX  TO  BLACK  POWDER 

aCONBP  = TXNUBP*TXK/BPKttD( 1 tJ)»( TTX  - TBP(J,J)) 

IF  (l.ME.IBEbC.O^.j.EU.NGR)  Gu  10  bit 
STnOFF=BELBLG-TLP(i ) 

SPfJrO.O 

THKJ2=0.5*(UIAH1-l,1AMBT  )-TOPGAP 
IF(U.EQ.2)SPr>J=0,b*(THKJ2  + ClAl“lBT) 

DISPp=SPlJj  + STUOf-h 

IF  ( 1 I^E.GE,0.0  0l)H)  (JPMR=326n.l<*E  XP( -bu  .b=*-ljISpR.faOO  . 0*TIKE  ) 
IFlTI^E.LT.O.OOOm  OPMRrl  , 2ttL5<‘SOK  T ( T Ii-it. ) *tXP  ( -30 . 5*0 1 SPR  ) 
IF  ( upi-.R , GT  . uCuixIbP  ) QC0NBP=(5Pr'''R 
bO  CONTINUE 

IF(UC0MU’  .LT.  0.001)  CO  TO  luO 

QHAG(IiJ)  = .vCoi')BP»ADVr>P 

TtFiP  = tlDCGf.S*uCONBP 

TLFF3P  = ((U’iP(lfJ)  - T0)/TLi1P)**2 

lF(TEfFbP  .G7.  TIME)  fEFEBP  = 1UE 

TbP(I,J)  = UPlIiJ)  + 

$ TEI'P*(SUHT(  TEFFriP  + CELT)  - SuP  1 ( TEF  FhP  ) ) 

IF(TBP(1,J)  .LT.  TIGNBP)  GO  TO  lOU 
IF  (1UEBUG(9)  ) Wr<ITE(L,20lH))  TIl-Edto 
100  COMflNUE 
C 

RETURN 

C 

2000  FOFMAT(/t'  TIML  =',E1'T.B*'  i<LACK  POrtUER  AT  GRIO'.Ia.IA, 

$ • IS  IblvjITLUM 

ENEi 
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SUBKOUTINE  BPIMIT 
COMMON/  CHAhGE/  ChTCi  IbLGL 

COMhON/CHA^/IX,lR,XBtRB,N&Xf NGR. inEGH,lENDbtIPATH(60*5»  f AKEAG(S ) . 
$ AREACH»AREAC(60)  ♦ IbNIT  , ONED , Dl  AMI . Ul  AM2  , DI SI  t DI S2  » P IS3  t C'ISq  i 
$ AREAR(60) «ARLAAXtCHAMl,CHAM2,CHAM3.TCPGAPiAREAGP(G0) ,0AV&i 
$ AREAH2»DlAMbT,HE.LtND,BLLBEG,lPSl.IPSir,RADPS,BPlG|j 
C0^^l0N/PRI^V/BPDE^SfBPRAU(brJ,5)  t AGLNBP » BGEIMBP , EXPBP 
C0MM0N/E3NS/nTDX,T2DR.T2DXf TW0TDR,DTDK«HM8»TW0GJ,DVAXIS,DVAXn  . 

S OXtUR«NX«GJ,TMULlTtHBP 

COMMON/BAG/PHIBG(faO»5) t RhUBG(60,b)t  HB&(60t5).  UBn(60,5). 

1 VBb(60,b),  UPB(60t5) t. PCH(60*5) » T2C(6o»5), 

2 UOTMIG(&0)«  URAb(60t5)«  XDRAG(&0«5)t  UOTMB(GO«5)«  UPBnT(6UtE)« 

3 PHlBTD(GO»b) * RhOBTD ( GO f 5 ) , HBGTD(6U.5)«  UBGTD(G0,F). 

H VBGTI'(60,5) ,TB6(60,5) »UOTMBG(60) « DOT hP ( 60 , 5 ) tPhIBP(b0.5) , 

5 PHlPTD(60«b)  «TZR(60)  ,TBP(G0»5)  ♦PHI2TD(60t5)  t LlPB2(G0»5)f 

6 TZK2(6U) il2C2(fa0t5) » PHIB62 ( 60 * 5 ) 

C SURRUUIINE  BPIMT  CALCULATES  IIJITIAL  POROSITY 
C VALUES  AT  EACH  GRID  THAT  CONTAINS  BLACK 

C POWDER.  THE  SUBROUTINE  READS  IN  THE  FOLLOWING  PARAMETERSft 


c 

»** 

ULGfC 

= LOCATION 

OF  CHARGE  (INCHES) 

c 

*** 

XLIC  = 

LENGTH  OF 

CHARGE  (INC)IES) 

c 

*** 

CHTC  = 

CHARGE  WEIGHT  (POUNDS) 

C 

CCMhON/F'/  IPRINT«MUUCHtMODGR,PRIl,  IUEBUG{35) 

COMhON/CFRACT/  Fft ACTl , FRACT2 
LOGICAL  IDEHUG 
C 

DIMENSION  FRaCTP(60) 

NAMLLIST/BF’CHN/  BEGTC.ENDTC  ,fsELBEb,BELENO,  ibegb,  lEnrB.nx,  IBEGIC  , 
• lENDTC 


INITIALIZE  FRACT  ARRAY 

call  CLEAR(FRACTP(1) *FRaCTP(60) ) 

NAMt.LlST/BFINP/bEGTC,XLTC,CHTC 
READ  INPUTS  AND  CALCULATE  CONSTANTS 
READ  (btBPlNP) 

IF  (IULBUG(2))  WRITE(6,bPINP) 

bEGTC  = BEGTC/12.U 
XLTC  = XLTC/12,u 
CHTC  = CHTC/lb.G 

♦**  COMPUTE  THE  LOCATION  OF  IhE  TUBL  CHARGE  AND  THE  FRACTIONS  FOR  IHE 
GRIDS  IT  OCCUPIES. 
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*♦*  DETt-RhlNE  THE  GRIDS  IN  WHICH  THE  CHARGE  BEGINS  AND  ENOS. 

ENDTC  = BEtTC  + XLTC 
IF(EiEGTC  .GE.  .5<0X)  GO  TO  10 
IBEGTC  = 1 
GO  TO  20 

10  IBEGTC  = BEGTC/DX  ♦ .5 

IBEGTC  = IBEGTC  + 1 

20  lENUTC  = ENUTC/OX  + .5 

lENDTC  = lEiMDlC  + 1 

IBEGC  = IBEGTC 

♦♦♦  CALCULATE  FRACTIONS  OF  EACH  GRID  OCCUPIED  BY  THE  CHARGE  AND  STCRE 
THEN  IN  FRACTP 

IFdBEGTC  .EG.  1)  FRACTP  ( IBEGTC  ) = (( FLOAT  ( IBEGTC ) - .5)*0X  - 
♦ bEGTC)/(UX*.5) 

IFdBEGTC  .EG.  1»  GO  TO  30 

FKACTPdBEGTC)  = (( FLOAT  ( IBEGTC ) - .5)*DX  - BEGTC)/DX 
30  FRACTPdENDTC ) = (ENDTC  - ( FLOAT  (lENDTC ) - 1.5)*DX)/DX 
KS  = IBEGTC  + 1 
KE  = lENDTC  - 1 
DC  40  I = KS.KE 
FRrtCTPd)  = 1,0 
40  CONTINUE 

*♦*  CALCULATE  PORt/SITlLS 

VOLC  = (DIAHF)T/2.0)*(DIAMuT/2.0)*XLTC*3. 141593 
DO  BO  J = IBEGTCdENDTC 

PHIBP(Jtl)  = 1.0  - (CHTC*FRACTP( J) )/VOLC/BPDEMS 
50  CONTINUE 

IFdDEBLG(30)  ) WRITE  ( 6 . BPCHK  ) 

RETURN 

END 
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SUBROUTINE  faSUKA2 
C 

C AREA  factors  ARE  NOT  NEEDED  IN  THIS  SUBROUTINE  BECAUSE  THEY  WOLLD 
C ALL  cancel. 

C 

COMMON/PRMFLO/UOTfiPfl,  UPRM 

COI^hON/AVGDT/RhOTDTtPHIRHO.PhlAVE.RHOAVL  tUBGAVE.UPBAVE, 

$ UTDT, VBGAVEtVTDT 

CORMON/CHAN/I  »d  .XB«RBiNGX.NGR.IbEGH,lLlMUBi IPATH(60»5) . ARE AG (5 ) , 

$ AREACH,AREAC(60) tlGNIT.ONEO.UIAMl.DlAN^tUISl.DIsatDlSS.DISMt 
$ AREAR(60) «ARLAAX»CHAMlfCHAM2.CHAR3tTDPGAPt AREAGP(60 ) .CAVGt 
$ AREAH2tDlAMbf i BLLEND « BELBEb t IPSl , IPS2 , K ADHS t BPIGN 
COMiON/CLOCK/TIhE,DELT 

CGMh0N/EQNS/DTDX,T2DR»T2DX»Tk0TDR,DTUR»Hf'iB«TW0Gj,DVAXIStn\/AXn  , 

$ DX,DR,NX«GJ.TWOUTfHBP 
COF;hON/GASCON/Ru  tRROtCVOtCVh 

COPRON/BAG/PHlBb(60f5)  » RUt-BG  ( 60  i b ) » HbG(60t5)»  DBG  (60,5  )« 

1 VBG(60»b),  UPb(60tb).  PlH(60.b)t  T2C(6l).b), 

2 U0TMIG(60),  QBAG(60tb)t  XURAG(60f5)*  DOTMB(60fb)t  UpeDT(60t5). 

3 FhlBTD(bUtb) » KhOBTD(60 lb) , HBGTD(60,b).  U8GTD(60t5)» 

A VBbTD(60,5) ,TDb(bO»5) »UOTNBG(60) » OOTNP ( 60 t 5 ) » PHIpP ( 60 t 5 ) » 

5 FHlPTD(60.b)  .TZR(60)  .TbP(fa0.5»  » PhI2TU  ( 60 , 5 ) » Lp,)2(fa0t5)  . 

6 TZK2(60) ,7ZC2(60tb) «PMIBG2(60t5) 

LOGICAL  IGMT,OhEU»CHAMHChAH2*CHAh3.bF-lbiJ 

C 

NAMLLlSl/bSURCK/  BUGGER  t GaF,  , 1 PI  * Fb . RHUA VL  , b4  , Gb . E4  , FA  , KhOTUT , FF  I TL 
,TiCUE?GTn,C4,Cb«hIGNtl  f J.eo 

call  GSFROP(RO*KKO»RiCVO»CVh»CV,PCH( I , J) ,HBG( I, J) tTDUM, 

$ RHOBG(  I , J)  ,UbG(  1 1 J)  iVP6(  I«  J)  «GAI“nCP.2) 

bugger  = (GAI“  - 1,0)/TWOGJ 
IPl  = I+l 
C 

C IN  THIS  SUBROUTINE  PHIBG  KLPRESENTS  THE  TOTAL  POROSITY,  ROT  JUST 
C POROSITY  OF  THE  PROPlLLANT. 

F4  = PHlBG(IPliJ) 

F5  = PHIBGdtJ) 

P4=PCH(IPl, J) 

P5=PCH( I , J) 

G4=RH0BG(IPltJ) 

Gb=kHObG(I»J) 

E4=G4*UBG( IPl, J) 

EI4=HbG(  IP1,J)-P4/G4/778.(, 

EI5=HBG( I,J)-P5/bb/77a,0 

C4=G4*EI4 

C5=G5*EI5 

H4=F4»E4 

DENOM=2.0 

PHIAVL=(F4+F5)/UENUM 
RHOAVE  = (G4  + G5)/DEN0M 
UBGaVE  = 0.0 

UPBAVE  = (UPB(lPlfJ)  + UPbd.J)  )*0.b 
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PHITDT  = PhlbTD(ItJ)  + PH12TD(I,J)  + PhlPTU(ItJ)  - 2.0 
RH0TDT  = {Fb*KHUAVL-LTDX*h4+Dt:LT*  (DUTMIG(  I)  + 
$DOThPM)/DVAXIS*2,0+DOTMb( 1 . J)+UOTMP( I . J) ) /PHITDT 
OQ  s QBAGdtJ) 

IF(KhOTC)T  ,LT.  u.O)  WKITE(6,BSURCK) 

PHIKHO  = PhlTUl ♦KHOTDT 
C 

UTDl  = 0.0 
VTDT  = 0.0 
C 

HIGM  = HBG(I.l) 

C 

IF(t)OTMlG(  I ) .bl.  0.00001  ) HIGH  = HB0.(1,2) 

El[tV=(Fb*(C4  + Cb)/DtN0h-DTDX*(H4*tI4 
$+p4*(m*ULb(If  1,  J)  + (1.0-F4)*UPB(  IPl,  J)  )/778.0) 

$+DELT*( (DOTMIG( I ) •HlGN+UOThPh+HbP ) *2 . O/DV AXIS 
$-GBAG(  1 . J)  )+DOTHB(  1*  J)*hMb+OOTHP(  1,  J)»).BH)/PHIRHO 
CALL  GSPKOP(KO»KKO.K.CVO*CVh«CW*PM.  ElUTtTDUl^, 

$RHOTDT.UT[;1  . 0 . 0 i bAH » CP , 4 ) 

HbGTD(  I . J)=ETUT  + PI\i  /RH(jTu  r/776.0 

CHEGTD  = HbGTDd.J) 

IF  (HBGTQ(I.J)  .LT.  0.0)  WHITE ( fc , BSUKCK ) 

C 

UTDT  = 2.(j*  BELT  ♦ LOTMPM  * UPRM/KHOTDT/b VAXIS 

RHObTDd.J)  = RHoTUT 

UBGTOCItJ)  = UTUT 

VBGTD(I.J)  = VTOT 

RETURN 
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SUBKOUTINt  BSURT2 

COMMON/ AVGUT/RHOTDTtPHiHHQ,  PHI  AVE.f<HOAV£,UBbAVr.UPBAVE, 

$ U1DT.VBGAVL,VIDT 

COMMON/CHAM/I  . J . XB  t RB  f NbX  . NGR  t IBEGB  . lENDB  » IPATH  ( f.0  . b J t ARtAG(E  ) , 
$ ARLACH.AKEAC  (60)  1 1GNIT,0i'JED»IJlAMl,UlAf'!2.BlS1.0IS;2tt)163,DISM  f 
$ AREAR(60)  tAREAAX,CHAMl,CHAM2,CHAM3,T0FbAPt  Af<EAGP(bO)  ,UA\/r-, 

$ AREAH2tUlAMBr,BELENU,BELbE&, IPSl, IPS2,RaBPS,BPIGN 
COMMOIM/CLoCK/1  IME . DELI 

COMhOrM/EQNS/ClUX,T2DR,T2DX,lwOTDR,UTDK»hMB.  FWOG  J , D VAX  I S t P VAXI T , 

$ DX,DR,NX.GJ,T|«0[>T,HBP 
COMMON/GASCON/Ru»hRO»tVO«CVH 

COMMCrM/BAG/HHIBG(fcOt5)  » RHOBG(bOt5)«  HbG(bO«b)t  UBR(60,5)» 

1 VBG(faO,b).  UPblGOfb),  PCH(60,5)f  TZC(bO«b), 

2 UOTMIG(fcO),  (iBAG(60«b)f  XORAG  ( 60  t f> ) t BOTMH(60t5).  UHBnT(60t5)t 

3 PhIBTD(fa0.5)  . KhOBTD(60.5)  . HBGTU  ( faO  . t) ) . UBGTU(60t5)i 

4 VRGTD(60  ,E) ) , TBb  ( bO  t 5 ) t UOTMHG  ( 60  ) ,DOTMP(bO,5)  , PHIBP  ( 60  , S ) , 

5 PH1PTD(60»S))  tTZR(bO)  iTBPCGOob)  «PHI2TD(60,5)  t UPH2(bO*b)f 

6 TZK2(60) .TZC2(60.b) tPHIBG2('  .5) 

LOGICAL  lGNIT,UIJtC,CHAMl,CHAh2tCHAM3,BPIClM 

CALL  GSKROP(ROiRRO.RttVO«CVH«CV,PCH(  1 . J)  ,hBG(  I , J)  ,TnLlM, 

$ RH0BG(  I , J)  ,UbG(  1 1 J)  , VU6(  I « J)  tGAMtr.P,2) 

BUGGER  = (GAM  - 1.0)/TW0Gj 
IPl  = 1+1 

IN  This  subroutine  PHIBG  REPRESENTS  THE  TOTAL  POROSITY,  ROT  JUST 
POROSITY  OF  THE  PROPELLANT . 

P4=PCh( IPli J) 

P5=PCH(I,J) 

A4=APEAR(IP1) 

A5=AREAR(I) 

F4=PhlBG( IPl, J) 

F5=PH1BG( I , J) 

G4=RH0BG( IPl, J) 

65=KH0BG( I ,0) 

E4=G4*UBG( IPl, J) 

EI4=HBG( IPl,J)-P4/G4/776.0 
EI5=HBG( I, J)-P5/Gb/77a.O 
C4=G4*EI4 
C5=G5*E15 
H4=F4*E4*A4 
DENUM=2.0 

PHIAVE=(F4+F5)/BEN0M 
RMOAVE  = (G4  + Gb)/DENOM 
UBGAVE  = 0.0 

UPBAVE  = (UPB(IPl,J)  + UPB(I,J) )*0.5 
C 

PHITDT=PHIBTU(I, J)+PH12TD( I , J)+PhIPTD( 1, J)-2.0 
C 

PH0TDT=(F5*HH0AVE-0TDX*H4/Ab-DTUX* 

*(DCTMIG( 1 )-UOTMBG( 1 ) ) /A5+D0TMB ( I , J ) +DOTMP ( I , J ) ) /PHI TOT 
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PHIRHO  = PhlTUT^KHOTDT 
C 

UTDT  = 0.0 
VTDT  = 0.0 
C 

HIGIm  = HBbd.l) 

IF(U0TMIG(1)  .GT.  0.00001)  HIG(\i  = 

HbGlM  = HUG(1«2) 

TF(D0TMBG(I)  .b7,  0.00001)  HBGN  = HBG(I,25) 

C 

£TDT=(F5*(CH  + C5)/DtN0ri-t>Tt)X*(H4*E14 
$+A4*P4/77e.0*(F4»UbG( IPl. J)+( 1.0-F4)*UPH( IPlt J) ) 
$+D0Tni6(I )*HIGN-D0TMBG(I)*HBGN)/A5 
$+D01Mb(  I ♦ J)  *hhB+DOTrlP(  I . J)*HBP 
$-DELT*QBAG(I.U) >/PMIRHO 

CALL  GSPROP(KO.RRO»K«CVO»CVh«CV.PN,  etdt.tdlim, 

SRHOTPT  t UTPT . 0 . 0 t GAM » CP»  4 ) 

HB6TD(I«J)=ETDT+PN  /RHOTDT/778 . 0 

RHOBTOdfJ)  = KHOTUT 

UBGlDd.J)  = UTUT 

VBGTOd.J)  = VTDT 

RETURN 

END 
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SUFKCUTlNt  CHSei 


DIMLNSION  ChlNl<;(7) 

COMMON/  CHAMGL/  ChlL.  IfaEbC 
CUl*!h0i\i/iy(EWHHl/PiiIli2. 1E.WDC2 
COM^lON/DET^A/  NXSAVE 

COf-POf\./FAll  ED/rhlCKT,HHOOP,PCOi'H.bTUB.XiJlUBiFAlL,MFAlL(bO)  . 
lThICK(t>0) 

CtiNhOlM/bAhRLP./bOPE  A.XPf  VP»b0KEn,BLf<EK,B0KLIJa»IJT2BU,D7DsG 

COr*MON/t’URr:/AlPfctCT  tPEXP 

C(JMMOIM/C  AREAS/ AHROUl.  ARROWS  tAt<HGW3»AP  TOT 

C0RlNON/CHAh/IX.lK.XB,RB.NGXtNGr;,IBEbh,lLNuft*IPATH(60t5)  .ARf  AG(E  ) . 

$ ARE  ACH,AR£AC(60)  tIGMIT, OWED. LlAMltUlAF.StDISl  iDlS2  iDlS^  t t'lSM  t 
S AKEAh(60)  ♦ AKf.AAX  t CHAHI  » ChAM2  » LHA^S  t I UPG  ftP « ARE  AGP  ( fcO  ) ,DA\/G, 

$ AKEAH2f[JlAnDT,fciELLNU»BELPEG,  IF'Sl,  IPSS.RAHPStBPIGN 
COPrtON/CLOth/7 IME  tO£L  T 
COPiFiON/DRGCON/Vl  SG 

C0rhOl\l/EQNS/aTux,T2bP.T20X.TW0TDR,[iT0K.HI‘.H.  f WOG  J , DVAX  IS  . 0 VAXI T , 

$ E x « DR  t NX  1 0 J « 1 WiJljl  < HBP 
rO^'BO.''J/FOKDE/  PFORCEFbO  t5)  , PFUfOKfeO.b) 

COFriO‘\)/GASCOW/ROf  RRO»CVO»CVH 

CC;FEOt\,/6ASES/HUH6,KKOM6,CVOMG,CVHhf,iROepiRROBPiCVOBP.C\/H«P 
COFfiOM/CFRACT/  PR.ACri,FKAC12 

CUMSOivi/bSTATE/Ao,  Al,A2t  a3»A(}SP,  AlSPtA2SP,A3SP, 

» A0MP«A1PP«  A2rtp,A3MP«A0BP,AlbP,A?DPf  A3BP,wi'1SP»Wf"MP,WI“l8P» 

$ &AMIB,CUPSP,CUMPP.CUIiBP,GAFSP«GAPMP.CAPBP«WMOLE 
COFnOi'i/GRAl(M/  xL(60f5)t  DO(i>u»5)t  OKbUtb)*  FP* 

1  XLTDT(feO,b),  U01DT(60t5)t  DITCl(60»5)t  XL0»  nOn«  DIO, 

3XLP(1U0)  .UXLBdOO)  tXLB2(100)  ,UXLB2(luO)  ,Eub(100)  tUOOB(lOO)  » 

100  ) .LiJObSj  100)  .DiBdi.O)  ,uniB(  10(. ) ,U1B2(100)  »UDlB2d00  ) ,C102, 

3 DOU2tXL02tXL2(fan,5)  »L)O2(€,0,b)  ,DI2(60»b)  , XLSTL'T  ( £0  , b ) » 

4 C'UETUI  (t0,5)  » ni2TOr(60,5)  , FA2 
C0Fh0iM/&HAli'i2/HPbl,  HMH2»  ATPB2f  CT2,  KH0P2<  PEXP2 
C0P^0^/M0LEA/KAUH0L(e5)  » NROwH  , 'vihOLLS  ( bb  ) iXCL(85)  »AREAH(60)  « 

$ Ah(t,u)  tFRACKfeti) 

CDf''r'iCI\!/IMFDTS/(.l,C2,C3,C4,TO,TlGi\l,GCONS,RhOP,PHlO,TF,CA.RHOu, 

$ HO,PO,UO  iGTRH0P,HW,L)h,0Fi2,  TIGNBP,GiBCC.rjS,TUTM,DIFFPR 
COPf;OW/P/ IPR Ii<JT , r^ODCH , rODGR , PF<  1 1 1 ILEDUG « 35 ) 
COFflOK/PRIPV/bPDEWStBpRADc  feu  «b)  « AGENE  p » bGt  MUP , E XPBP 
COrnCt!/eA&/PhlBG(GO»b) » RhORG(bO,b),  hb&CGO.b),  uaG(60,5). 

1 VBG(60,b).  UPH(b0t3),  PCH(60»5),  TZL(bDt5), 

2 DOli'llG(bO)  , DRAG(b0i5),  XDRAG  ( GO  <5  ) i DOlMB(bO,5),  UPbDT(60d)» 

3 PHALTn(60tb)  . RhOBTO(fao»5)  . hBbTD(bU,b)i  UBGTO(60»5)« 

4 V8GTD(faO,5)  ,TB&(60.5)  »DOTf"BG(b0)  ,COThP(b0.b)  » PlIIRP  ( 60 , 5 ) » 

5 PHlPlD(b0*b) »T2K(bO) tTBP(bOtb) »PHl2TD(6u,b) , UPB2(b0»5)» 

6 T2R2(bO ) ,TZC2lbO«b) . PHIBbP ( bO ♦ 5 ) 

COPMCN/bAHRL/  Phld00)»  RHObdOO),  HGdOu).  UGdOO),  UPdOOt 

1 Pbd00)»  16(100)1  PMDoTdOO)i  «LdOO)i  uDKAGdOO),  FplCTdOO)» 

2 CEOf>iVdOO)i  ULPdOO)i  ltpFIdOO)i  URH06dOO)i  UHGdOOji  UUGdCO), 

3 AMASSdOO)i  AMOFidOO)  1 AENLRdOOi  UAPASS(lnO)i  UAPOi^dOOi 
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HliAEiME.i<(  100  ) f Fill c:  ( 100  ) tUPHl2(  100  ) 

LOGICAL  lbMT,OrjE.b,CHAMl  ,C  Iu.H2,CHAF3,BPIGM 
LOLICAL  PKll.lLtbbG 

I ogichL  fail 

C 

HAT  A GRAV.XoUl  ,PI  ,PIDF/32.16,7  76.  .765396/ 

fiAPELlST/CtiH.P/ 

3 AOPP.  Alt'P.AL’BHi  A3PE  . AOMP . A1  ^'P , A2MP . a3(  P , A OSP . AISP . A2SP , A3Sp . 
2AGEI\i.AGLiM2iAGE.N£)P*ALPhAtALF'HHP.L>0«Bl»U2»b3«bH.8F.TA.R6Elv» 
3BG-tt'a2,BGLrjbp,LCri:FU,dPL)t-NS,l  f‘HA0(:i  ,C1  ,r.2tC3,C4,CA  ,rGFN,CGEN2, 
4CFAh2,ChAK3,CH>  l2,lil0.DI0?,fil  A.-il  ,1)1AF  1. 1 U 1 AMHT  , PIFFPK  , P IH 1 ,L1R2  , 
50181 » DOO  « UOO?  , GORl , U0K2  ,EXPi-  F , GAPHP  , GAhHP  , GAMSP , 
fcHPP,H^^AX^hhL^^H^,B2^NGR«NGX,l'J^iCLES,(vPEPF  » i •PEF.F2  * PROUP  , 
7PO.FFXP,PE>P2,KAChOL.KFl.KF?,KHOP,RhOP2,HiiCPlR,RHOr  ?H,Rtil*RGl2» 
6T0»  TF  .TlGr.,TlGnliP,Tw,U0,WrBP,Vi'“l”'P.bl'tSP.XLL.XK,XK8P»XL0,XL02» 
9XLBEI .XLH3 i aLK2 
C 
C 
C 

C READ  INPUTS  AFiD  CALCULATE  COl'iSTAUlS  FOR  SUBROUTINES 
real (5.CH1NP) 

IF(IDLBU6(2)  ) I RITF(fe»CHll\lP) 

UO  2222  I = 1,60 
MFAIHI)  = 0 
2222  COPTIi.UE 
F0=1728.0 

Fl=Fn*62.H 

F2=F1*62.^ 

F3=F2»62.H 
ACSP=AOSP/Fo 
A1SK=A1SP/F 1 
A2SP=A2SP/F2 
A3SP=A3SP/F3 
A0r'P=A0l“iP/F  0 
Airp=AihP/F 1 

A2f'P=A2i‘P/F2 
A3rP=A3rP/F  3 
AOF'F-AO&P/FU 
A1HP=A1LP/F1 
A2PP=A2bP/F2 
A3tP=A3BP/F  3 
AOsAObP 
A1=A16P 
A2=A2bP 
A3sA3bP 
CUmSP=0.0 
CUA!|‘iP  = o.O 

curt  p=o.o 


n n n n 


: • i 

1 


W^iCLL=W^BH 
&/\(MB=GAhbH 
R0f’b=K0hl 
PR0M6=KFC|'H 
CVCWfc^CVOhl 
CVhK6=CVhivl 
CHAM1=. FALSE. 

FN  = FLOAT  (IMPlIvF  ) 

FfJ?  = float  (NPLKF^) 

XLG  = XL  O/IE. 

XLC2  = XL02/12. 

L;iU2  = OIU2/1.;. 

L'G02  = iJOo;;/12. 

CEO  = 000/12. 

DIO  = UlO/12. 

OIAhl  = □lAhl/12. 
niAHi>  = P1AM2/12. 

nisi  = bisi/12. 
niAi-iLT  = niAMni/12. 

XLFEL  = XLbLL/12, 

F'O  - P0*l-t4, 

DIFFPP  = DlFFPh»14»4.C 
AGElVi  = AGL<'i/(  l.i.^l'F^.+^PEXP) 

RGFN  = OGElM/ ( l2.»144.x<»PEXt  ) 

CGIK  = CGLb/l?. 

AGFi.2  = AGEM2/  ( 1 2 . 0*  1H4 . 0 **Pl  XP2) 
hGFl\i2=bCEI'2/  ( 12 . 0*144. C**Pi  XP^  ) 

CGFK2=CGFA2/12. U 
I)IF1  = U1H1/12.II 
0lF2  = 01h?/12.lj 
nOH  = LOKl/12.0 
U0F2=L0H2/12.(j 
XLFl  = /LHl/i2.ti 
XLP.tiXLI'2/12.(l 
BiFAUO  = bPHAUU/12. 

HPCLimS  = pPLEt'S/4b4. *16. 36*1720. 

AOtUBl'  = A0E!'JbF  /(l2. 0*144. 0♦*t:X^  B?) 
but  l•.bP  = 0uLrviL:i'/12. 0 

IMITl/LLY  IIK  Gas  CONSTAIXTS  / KE  THOSE  oF  T hE  BLACF  PCinDEh. 

AFTf  K LALtI  TI“F  lulEKVAL,  It  UPDATE,  Tht  GAS  COHSTAMS  ^iLL  bF 
CALLULATtiD  GO  liiL  hASIS  OF  I HE  GASES  PPLStI  I. 

RO  = EObP 
P.KO  = KKOLP 
r.\lO  = CvObF 
CVh  = CVHI  I 


4 

I 

J 
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ROKEL'  WAS  lAf\Ll,  OUT  OF  b/vRlUF-  BECAUSE  IT  IS  nEEIjEH  HERE  l-OR  AREA 
CALCULATIONS. 

HOHLD  = B0KEIV12. 

1.T0PLR  = 0,5»BCFl1> 

HOLLA  = PI»iJOKl.L*t'(jKEK 

ni:TE»\r:ll\lE  ox,  1ii_OL>.  IbLbC,  Iliinb 
♦ **  IREUC  WILL  BL  (.UTTEN  FROM  !(H]|JIT, 
nX  = UlSl/FLOATdiGX  - 1) 

EELbEG  = 0.0 

lEEbb  = 1 

RFLtl\)U  = XLbEL 

TLNUB  = XLbLL/[;A  + l.b 

NX  SAVE  = MUX  - IEHIjB  + i 

(mUX  = lENCb 

FKACIl  AmD  fRACli;  ;,hE  THE  H<Al  TIONS  OF  GkIUS  IREGB  ANH  IEODB 
RESPECTIVELY  THAT  1 EiC  BELL  TUBE:  OCCUPIES, 

IF  ( lE^LbB.EO.  1 )FRAlT  1 = 1.  'J-2.0*BEl  HEb/DX 

rF(  iRLbE'.bT  .1  )FKACT1=(  ( FLOAT  ( IBE"GB  ) -0 . 5 ) *UX-Dn.BEb  ) /DX 
FLACTid  = (BELEiVu  - ( F LO/\T  ( 1 E LUB  ) - l.*S)*GX)/UX 

DM.OCONS,  AImB  bbCONS  AKL  NELULl.  l'''  SUbKOUT  InE  PKPFIL, 

DH  = (l.b*UOO*LOO*XLO)**0.i.33 

OCCOS  = 2.(j*SOF  TFALPHA/i.mibSil/XK 
ObCUbS  = i!,04SQra(ALPHBP/.-5.1Al59d)/XKBF 

ATPH  AbU  CT  ARE  bEEULU  FOR  LalCULATIIJG  ThE  BORb  RATF  IM  kEGRES 
TEFPl,:  = UbRl*l)CL  i-FM«-LlIKl»Eilt'  1 

TE  F"PF-1=  ( 0 .b»Tt.r  P,j  + XlR1*  (Tiuh  j+Fr:*UlRl ) ) / ( XLR1*TEMPD  ) ♦REI  )t-1R 
TLHPl:  = UOn*UOu-EiV*bIU*UlO 

TE  NPl:.  ( 0 .t*T  t;|-Pu  + XL  J*  (CUiO  + FM  *-LilC.  ) > / (XL0*  T LFiPCJ)*PHGF 
FFACT1=LG1/KF1*  Tt  FF  Kl/TbMPl 
AT  PL>=  ( AE  Lf  » f U + E)Uc  K ) *RFAlT  1 
{.  T =Cl>Lli*T  O^RFaLTJ. 

TEIwpLi  = UOR?*iJOPk-Fr,b»lilRq*LlRt 

TEM'R2=(0.b*TEr  r'b  + XLR2*  (iJGn;>  + F.'..2*L.IK2)  ) / ( aLR2 ♦TEPPP  ) ♦RhOP2F 
TLf'Pn=bC02*BC(i2-FU2»liiu2*Li02 

TEFPi'=  ( r ,b»TEi''.l  u + XLO?*  ( D0u2+F  b2*l!l 02  ) ) / ( XLo2*TrHrr  ) *RH0F2 

LFALT^'.  = E j2/UF2»TEril’n/rEHP2 

HF  ALT2  = KU2/KF2*  lk.E  F <2/TLMP2 

A lPh^=(AGLl  .2*Tii  + UbEll2)*KF  AC  Tt 

EifiFl  = h«l 

Ei('‘.H2=Fihb2*KF  2 

VTSb  IS  A CObST/\liT  USED  Kv  SbbHOUT  TNE  ERaG 
VTSG  = rM*Gi<AV 

CALCULATE  ItW  FRCH  TW  AbU  Po 

CALL  GSPRCEMKC  *RRim  K«CVu«CV|.,  (.V,Pu.  HU  tTT«  * RHObUr, , (i . (' » 0 . 0 » G AF'  »CF«1) 


non  n o nnnnnnnnnnnnn  nnnnonn 


CALL  PATHS 


Of.TLKril-L  DLLT  AND  CALCULATt  CUNSTALTS  FOP  FIMTE  DTFFTrlNCL  EG^S. 

I 4 


START  TIHE  A1  0.0  A(MU  DLiLKMI.L  LELTi  THE  TIML  INTERVAL  LENGTH 
TIRiL  = O.D 
GJ  i GRAV»>oUL 
TWObJ  = 2.U*CJ 

DELI  = tJETA*UX/SLiKT(TWUGo*flF  AX  ) 

TtaODT  = 2.l;*!;ELT 
L'TL'X  = OELT/UX 
T2DX=0.5*( TUX 


CALCULATL  C ROSS-St.C  T I ONAL  AREAS  ASSoCIaTEL  bITH  THE  CHAhuFR 


CALL  ARl  AE 

L'SiNf,  THE  AKEaS  JLSI  CAlCLL  aT  EIJ  » CALCULATE  THE  IMTlAL  VOLUME 

(•r  lhamher  kali/'l  rors  it  2 amd  3.  also  calculate  the  total 

CHAf  HER  VuLUI^L  . 

ARPCV’1  = (HLUmMi^CX)  - 0.3)  tuv  *areaa> 

ARFUU2  = AHEAK  ( 1 ) >4DX*0  . b 

no  100  I = 2tNt7A 
ARHCW2  = ARFT0in2  + AKEARTD^UX 
loo  CliMINUE 

ART  or  = ARRUwI  + AKt<CW2 
IF(ChAi-iL)  GO  Tu  120 

hRKCL3  = AREAGH(1)4UX*0,5 
L'O  110  1 = 2tUCX 
AKRUU3  = ARKOwb  + AREAGfMl)*UX 
Ilf  COMlNuL 

ARToT  =.  ARTOT  + aRRoU'3 

12  0 C OI  TIl'iUE 
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INITIALIZE  ChAMbt.K  ^ATKIX 

CALL  CLLAh(XL(l.l) «UI(60t5) ) 

CALL  LLtAK( XLTUT ( 1 . 1 ) . DITOT ( 60 « L ) ) 
call  CLtAn(PHlhf.  (!♦!)  »HrilHL2(60.5)  ) 

CALL  CLLAF((«PRAl'(  1.1 ) . BPRAf  ( f 0 . S ) ) 

CALL  LLLARiF  FC-HCm.l  ) .PF0«Ol  (bO.b)  ) 

CALL  CLh  AK(xLi;{l,l)  . UI2TL'T  ( 6C  , b ) ) 

UPP  IS  iNITlALLr  0.0 

IMIIAILY  SLl  ALL  POKOSITILS  lo  1.0  ACD  ThEN  CHANGE  THOSE  THAT  HAVE 
black  powder  oh  PFOPELLANT 
DO  blU  u— l.WtoK 
no  bio  1=1 .WGX 

PH1EG(1,J)  = 1.0 
PHihGi'd.J)  = 1.0 
PhI2Tr(I,J)  = 1.0 
PHIHTDd.J)  = 1.0 
PHIPP(I,J)  = 1.0 
PHIPTLd.J)  = 1.0 
510  CUrdNUL 

CALCULATE'  IMTiAL  PCHOSiTIES  CP  GPIDR  CONTAINING  BLACK  POWOEH 
CALL  DPllMlT 


DO  1001  1=1, NGX 

no  1000  j=i.2 

BPRADd.  J)=bPKAL0 
1000  TEF(1,J)=T0 
ICOl  CONTINUE 
C 

no  bii  I = i.NGX 
TZK(I)  = 10 
511  COMINUL 
C 

C TFilS  STATENENT  CAUSES  ThE  bLACA  POWDER  IN  GRID  (IBEGC,i)  TO  BE 

C **♦  IGNITED. 

TBP(  ItlLGC.l  )=TlG(.t>P 
C 
C 

C PROPELLANT  Is  PACaLU  IN  GRIDS  AElCVE  THE  BELL  TUBE  0^'LY.  GRAIN 

C DIMENSIONS  AND  GF<AlN  SURFACE  TEMPERATURE  WILL  bE  LEPT  0.0  AT  OTPER 

C GRIDS, 

C nETLKMNL  ThE  POROSITY  OF  bHIHS  CFiNTAlNlNG  PROPELLANT; 

C 1.  calculate  ELD  DENSITIES, 

C 2.  CALCULATE  THE  POROSITY  OP  A FULL  GRID. 
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C 

C 

c 

c 

c 

c 

c 

c *** 
c ♦** 

c 


3.  FHOM  THt  InE-IGHTS  Of-  THE  CHAHGLii,  OLlLRMME  THE  CHARGE 
VcLUf'ES. 

4.  CALL  SUBROUTINE  DETPHI  WHICH  CALCULATES  THF  POSITIONS  CF 
THE  charges*  the  FRACTIONS  OF  GRIDS  FILLEL  WITm 
PROPELLANT  AND  WHICH  FILLS  ARRAYS  PHIBG  AGO  PHIBG2. 


Bt-D  ULNSITY  Is  UETLRHIMED  FROM  THE  REGRESSION  FOUATICN  Bd, 

Hl.B2*B3,h4  HAV/E  been  Df.TfRMINED  EXF  ERIMENTALLY 

RHOU  = BO  + H1*XL0  + B2*0C'(J  + B3*t)I0  + b4*FLUAT  ( NPERF  ) 

RHOB?=  BO  + B1*XL02+  B2*DOO;;.+  B3*U102+  h4*FLOAT  ( NPERF?  ) 

PHI02  = 1.0-R(ICB2/rI-IOH2 
F^Hlu  = 1.0  - RHOa/RHOP 


CHWT2(1)  AfiU  CF.wT.i(2)  ArxE  Sp  PRCPEl  LAigT  , Lhi«T2(3)  TtROUGH  CHWT2(7) 
ARE  M'  PROFELLaNT. 

CHI  = Chill  2(1)  + CHWT2(2) 

CH2  = r.HWT2(3)  + CtlwT2(4)  tHwl2(Fi)  -*■  Lr.irjT2(G)  + rHwTP(7) 

IF(LH2.RE.1.0)  go  to  520 
ATPb  = ATPE'2 
CT=CT2 
RHOP=khOP2 
520  COFTlNUt 


VOLLF'l  = Chl/RHG|:)2 
VULChti  = Ch2/KtiGh 
IENUC2  = 0 


IF(VuLChl  .GT.  l.uE-7)  CALI  uETFHl  ( \/OLChl , VOLCh2  ) 


*♦*  IMIIALIZE  GRAIN  PROPERTIES 

910  DO  bVC  l=lbEGb« lENUC? 
XL(It2)  = XLU 
l'o{I.2)  = ilOO 
Did  *2)  = 1-1 0 
TZL(I,2)  = TG 
XLTDTdt2)  = XLO 
D0TLT(It2)  = DOO 
Cl  TOT (1,2)  = CIO 
XL.2d,2)  = XL02 
r02(I,2)  = U002 


93 


nonnnnnnnonnon  n n n nnn 


= UIU2 

TZC2(lt2)  = TU 
XL2Tm  ( X.2)  = XL02 
D02TD7(I,2)  = 0002 
D121U1 ( I f2)  = UI02 
570  CUMIImUL 

OFTFKMINE  HO  AI!L  HHOl)  FROM  Ho  ANU  TO  AHu  OSPROH 
CALL  bSHROP(KuiKRL«R»CVO»CVH«CV,Pu.HO»TO»KHOOtO,0  ,0.0  tGAFtCF.l) 

DO  fOO  Jrl,^GK 
Ou  faOO  I = 1,i'jGa 

pCh(I,J)  = HO 
HbG  < I , >J  ) = ho 
RHObG(I,J)  = hhuO 
Ub&(I,0)  = uo 
TbGd.o)  = TO 
COM! IDOL 

IF (iLLbU6(3) ) wKllL(6, 20061 
DO  630  >j— 

IFdDLtbC  (3)  ) «,KlTt<6,20l;7)  J , ( Phidt.  (1 , J ) » 1 = 1 « H;GX  ) 

COM  IMJt 

IFdrXBL.G(3)  ) Whnt(6,200t<) 

DO  b40  u = l.lvGH 

IFdOLhUGli))  I„K1TE(6,2007)  J , ( HhldP  (1 , J ) , 1 = 1 » h6X  ) 

640  COrriHUL 

IF(iDt.BOG(?)  ) Wf'.ITk  (6,2009* 

CO  625  J=1,NGK 

AFdDEbUG(3))  Hf(ITE(6,2007  ) O , ( PH  IbG2  (1 , D ) , 1 = 1 • fiGX  ) 

625  CONTINUE 


SET  UP  HOLES 


SET  OP  HOLES  II'.  mELL  TUBE  AND  ANl  PSEUIjO  hOLLS  F.ETWFEN  (ADIAL  FCUS 
ONE  AND  TWO. 

CALL  HOLSEI 

GET  *.OLE  area  AT  HALM  GRID  FETWELP  RADIAL  kOvJS  ONF  AND  Ti»0, 

call  holes 

GET  HOLE  AKEa  AT  EACH  GRID  HElkiEEN  RADIAL  ROWS  TWO  AMO  THREE  IF 
CHANS  IS  TRL-E.  if  IS  CALCULATEU  USlNC.  AN  AVERAGE  DTANETtR 
OBIAINEO  FROM  SLLROUTlNE  AREAS. 
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IF(.KOT.  CHA^^)  liu  TO  700 

APEAH2  = 0.0b»lPI/ULTA)»0.5*(OA\/G  - 1 OPOAP  ) *T  OPGAH* 
i SuKT(2.U/ (OAiS  - 1.0)  ) 


70C  CuMIhUfc 
C 


C 

C 

C »•=*  SUM  IS  ThL  CaLCuLATLU  IMTIAL  PASS  Oh  OLaCP  POin'b  P AHn  PKOPELLAI  T 

C SUfu  IS  ThL  CAlLOLATLLi  INITIAL  NASS  ()F  SLACK  powntp 

C »*♦  SUP)  IS  THL  CaLLIjLaTFO  INITIAL  NASS  OF  HI'OPLLLANT 

C ***  TOTNl  IS  THL  ILiPUT  uASS  OL  Pf'CPLLL AiJT  ANU  BLACK  hOwr'EX 
C 

C LOGIL  IS  NOT  IrJOT  ILN  LOK  C),,\(  i T)^UL. 

IF  <ChAM)  LP1T)  (i.,^,U00) 

I)(ChAM)  Go  TO  bUU 


C 

C TO  FI)'U  THL  TOTAL  GAS  NASS,  SUM  THL  PhOLOC  I Op  TOTAL  POpCSITY* 

C OLfaSlTT  OF  GAS^VOLLNL  AT  LAfh  G)au, 

C SINCL  GAS  OLimSITY  aNU  GIUIT  LEl'GlFi  AF^F.  CONSTANT,  MULTIPLY  RY  THEF 
C AFTEK  SUMMlhG. 

C »**  FIRST  SOM  ALONG  TFiL  AXI^ 

SUE  = 0.b*(PhlL.G(ltl)  + PhIiE(J,1»  + PoUiGPdil)  - 2.0 
SUM  = SUr!>*A):FAC  ( 1 ) 


SUFh=(  ( 1 .C-hHlhG(  1 .1 ) )*R)IGf'+  ( l .G-PHlNGk  (1,1))  *FH0)"2  ) ♦D\/AXIS*0.b 
SOM.  = (l.u  - F'hlbP  ( 1 1 1 ) ) ♦liVAX  iS*u . b*)T^M  i.S 
VOl  = LVAXIS 
VULOFO  = VOL*)^)lLIiS 


DU  720  I=2*SGX 


C 

SOM=SUPP+(  (1  .0-PHlbG(  I ,1  ) )4ttHUh*(l.fi-F  MluGHd,!  ) ) ♦RHOPi  ) »[;VAX  I S 
SOPH  = SUMti  + (1,0  - PHIBF(  I , 1 ) ) ♦VULPPU 

SLIP  = SLM  i (l'till!0(  I,i)  + F').Ir'P(  1 , 1 ) + PI*It^G2(  1 ,1)  - ? . 0 ) *AF<LAC  ( 1 ) 
721'  COE  dNUfc 

TUTK  = SUM 
C 

SUF-:  = 0.5*(KlilHu(l,2)  + P),lhF(l,2)  + FHI1jG2(1,2)  - 2 . P ) » ARE  AR  (1  ) 
VUl  = AKEAR(l)*LiX*0.b 

SUE  F = SL;EiP+(  (1.0-FHlbG(l,2)  ) ♦KHOP+ ( 1 . 0-PnlbG2  ( 1 , 2 ) ) •RHC.P2  ) *VOL 
SUEb  = SUMb  + (1.0  - PHIbF'd  ,2)  )*bF'Dr.r  StOuL 
no  730  I=2«N6X 
VOL  = AFEaH(I)*OX 

?OPhrSOhP+(  d .O-F’hlBGd  ,2)  ) ♦fU  l'»F  + ( 1 . 0-)  )«l  BO  ( 1 , 2 ) )»Rh0P2)*V0L 
SUE  L = SUpiF*  ♦ (1.0  - E*HlbP(  1 ,2)  )*bF'Df  IviS^VUL 

SOM  = SLIP  + (HFiIBGd.c)  + hHlF:'F(I,2)  + PUIRG2(I,2)  - 2.0) 

) ♦ARLAK(I) 


I 


I 

1 
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73fi  COM  IivlUt 

TOU  = TOTM  + ciL'i'l 
C 

TL'TI“  = TOT^  ♦KMOlj*LX 
C 

c add  am  Mass  uf-  i Lack  powulk  aok  f-kof  llla.'jT, 
c 

CHIf  l = LI.O 
l!(j  VPb  l = i*7 

CHk-l  = CF.LT  + CHwTkd) 

9 Of  COflll'JUF: 

C 

C CAILULAIF  F-LKLLid  tKKOK  l-Ul’  I|iniAI  MASo  oF  BLACK  POhL'FK  ALL  Ff  UF't 

SOI'  i = SUl"ti  + SUnL 

C ***  kKlFL  CaLCULATIu  MASSES  0(-  HlACI.  POkiuLK  AfiO  PHOPFLLA^T 
IFF  a1  tHUG(31)  ) «r(nL(b,pOu«<  ) c . if f , SOMp 
IFF  lbLH0G(31  ) ) WRI  rcFLi^OOt)  C'HICiCItlT 
TCTr]  = CF-l»Jl  + Cult 

XPEKCT  = FFFOTM  - SUHl ) /I  t Ii- 1 ) »100  , 

C pRlTt  TOTAL  LALOuLAltD  MAbS  i»F  PROFELL/.H  I AOIj  BLACK  POwIJFk 

IF F It EbUGF Si ) ) wKl 1 L F 6 « 2001  ) SUOl 
C WKlTf  total  IKl  M mass  uF  IjLACK  f'GV  DFk  ANJ  PKOPEl  LA»  T 

IFF1DLBUGF31)  ) ir  KITE  F t, , 200;' ) TO  fMl 
C +**  UklTL  PERlLgT  EHKliH 

IFF  IDLbLGFSl ) ) k-K  I TL  F 0 i 2 0 OS  ) XPLRCT 
lOTll  = TOTK  + core  + CFikT 
TOTK.G  = TOlo.  - TOIMI 
C **■*  WHUb  INITIAL  OaS  MASS 

IF F iDLBUGF ) ) Wk 1 TL F h » 20 J F ) TOTMG 
C 

0 00  CFjFFIMJL 

c 

NAMLLIST/CUKlN/XLUtUOO.UlOtRAfJHOL  t P() « bt'EL  t XCL » NROUri  ♦ 

$ NE0LLS.AKLAH,T  IMLtDELT,Tk.(i0J,[’TDX.T21  XtPhIU, 

• hO,RMOO,TCtGvAxlS«OVAXlT,NCONS,ATPH,Cl ,V I So , HW , Dl AMI , nl AM2 , 

• LlSltONEL  « lONlT.AGENtCGLu. 

S E'IAME?T  tCbiAM2.f'(JkEij.BOkEk,fcioHt  AiAFLAMAiAkLACht 

• BFRAOO  .13PLENS.  AGLIibP«RO»Kkut 

$ XLBEL,D>  t IBLOb,  IbLGC,  lEi'.LH«ARkOlM.AkKOk  2 » ARROWS  t APIOT  . 

$ EELUEG«eELF.IJO.FkACTliFRAC.T2,0AV{-..GAi'1t  t CTM 1 0M « DM?  , OECOkS  , AH , 

% FkACT,  IFSI,  1PS2.  IENDC2,  CHli  CH2i  Chk-T.  VOLCHl , VOLCH2, 

$ PHI02,  RHOB,  NGX,  XLU2*  1.002.  0102,  IbEGC 
IFFUiEBOGfA)  ) UklTEFfe.CHKlN) 

C 

C 

C 

KETLRN 

C 

2000  FOri'iArF//,'  LOlIL  for  FINuIIMG  TOTM  WHEE  LriAiil  IS  TFUE  is  not  tuRITT 
$tM  TET  • ) 
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2001  KORhAT  (///.*  Cf,LCULATE.l)  uF  BL/'CK  FijKPtH  aRQ  PROPElLAi^T  IS  *t 

.FlO.b) 

2002  FORMAT  (//**  IIxPuT  OF  l-A.hCK  POwUER  AKU  PKcF  El.LA^' T iS  *iflC.b) 

2003  FOPMAT(//,»  PFJ'i>,tNT  EKKOK  IMllAL  WASi  CALClJLATIO^  lb  *,fl0.5) 

2004  FUFf'AH//,*  HlACK  POiJUEH  LALCUlATEIj  FAbS  iS  *,F1C.5»*  PHOPtLLAR  T L 
.ALCLiIATEO  MASS  IS  *,F10,b) 

2005  FOPMAK/Zt^  LLACK  f'UWDEH  li'-iPUT  MASS  IS  *,FlO,5t*  PPOPEELAImT  IRFUT 
.MASS  iS  ♦,Fl0.b) 

2010  FCFnAT  (//,»  Tht  inlTlAL  MASS  OF  bAS  1 1'J  THE  SYSTEM  IS  ♦,FlU.5) 

2000  forma r (///. • ARaaY  PHIDG*,/) 

2007  FORi-iAK/,'  RACIAL  RUU  • , 12  , / , ( 20X  , iOF  1 0 . b ) ) 

200fl  FOPhAK///,  • AtxhAY  PMIBP',/) 

2009  FoFhA'I  (///«*  ARRAY  Pi;iBt2  »,/) 

EfvC 
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clear 


LOOP 


lUENT  CLEAR 
ENTRY  Clear 
BSSZ  IB 
SHI  1 
SA2  A1 
SA2  X2 
SA3  Al+Bl 
SB3  X3 
MXb  U 
SA6  A2> 

SB2  A2 
SA2  A2+B1 
NE  B2tB3tLO0P 
EU  CLEAR 
END 


r f 


SUtPoUTlNE  OElHIil  ( VUl  CHl,VOLCHi>) 

COfhorj/HAG/PHlbbceO.b)  • hhO‘-iG(60,b)  « HbG(bUi5)t  UHG(60,5)« 

1 tfBblbO,5),  UPB(60.b).  PLH<f,o,b)  . T^C(blJ.&)« 

2 tjOTMIG(bO),  bbAC(f.0*a),  XDKAG  ( 60  t b ) » DOTMB(60,5).  UPtflT  ( 60  , E ) , 

3 HHlBlD(bO.b) » hhOBTD(60ib) , hBG10(bG,b),  UBGTD ( 6 0 t 5 ) . 

4 VBGTD(60,5  ) * TbO(60f  5)  .007^86(60)  t OOTl^P  ( 60  t 5 ) i PMIrP  ( 60 , 5 ) t 

5 PhIP10(60»tj)  ,TZh(eU)  .TBP(bO,b)  .PH12TU(bO,5)  I tPBi(60i5). 

fa  r2K2(60) ,12C2(60»5) t PHlbG2 ( 60 . b ) 

CCPMO^/CHA^/Ia.  IP  iXdtKbtNGXtNGt^  . IBLGH  , lEbOB  » IPATP  ( 6u  » 5 ) i AKLAG  (E  ) , 

$ AREACH,AKEAC(60  ) . JGMT.ObEBil  lAM  tDl  AP2.B1S1  tPIS2tDIS3tl')ISM  . 

$ AhEAR  (60)  .AREAAX  iChAMl  tCliA^  2,LHAh  3tTOPfcAPtARE:ARP(60  ) .LAVGt 
$ AKEAH?,DIaPB1  .BELEMUtBLLbEG,  IPSl,  IPS2,«A[JPS,nPIbM 
CuPihON/EQNb/CTuX,  T2UR  tT2DX  .TwufDRtUTDKtriPibt  TWUGJf  DVAXI  3f  OVAXI 1 t 
$ nX » UR « NX » G J « 1 wOL T « hBP 

CCNNON/INPUTS/Cl  ,C2%C3fC4,TOtTlbNtOCOIMS,t\HbPtPHIOiTF»CA*RMOO. 

$ PO,PU  ,U0  »GTRHUP.Hl^,0litDr2*T  IbNBP,QBC0iJS,T0Tl''uniFFPR 
CurMoiM/fMEbPHl/PHl02. 1ENDC2 

COI“hOl\i/P/IPRlNl  »r'lbDCH,MODGR  ,PRI1 , ILEBU(i(  3a  ) 

LOGICAL  PRil.lUEbUb 
C 
C 

C CETLRMINE  ThE  LxTEM  OF  SP  PROPELLANT,  CHRGLl,  BY  APOING  ON  GRIP 

C VOLUME  AFTER  GRlU  VOLUME  UNTIL  VOLCHl  Ib  LXCEEDEO.  THEN  UEIEPPINL 

C WHAT  INCRFMENf  OF  THE  LAST  GRID  IS  NELLEU. 

C PREVV  CONTAINS  THE  VOLLME  THROUGH  THE  PREVIOUS  GRID. 

C TOTV  CONTAlNb  THE  VOLUf'L  THhCUCH  ThE  PRESET-T  GRID. 

C UELX  IS  THE  LENGTH  oF  THE  LAST  GRID  NELUED. 


C 

RESTX 

IS  THE  REMAINUEH 

OF 

TF.E 

LAST 

GRID. 

C 

FRALT3 

IS  THE  FRACTION 

OF 

TE'E 

LAST 

GRID 

WHICH 

IS 

FILLED 

WITH 

C 

SP 

PROPELLANT. 

c 

FKAC.T4 

IS  IHE  FRACTION 

cr 

THE 

LAST 

GRID 

WHICH 

IS 

FILLED 

WITH 

c 

Mp 

PROPELLANT  (IF 

pp 

PROPELLANT 

OCCURS) . 

HALPnX  = 0.5»l.X 
TOTV  = AREAR ( 1 ) *HALF0X 
IF(V0LCH1  .GT.  TOTV)  GO  TO  20 
ISAVE  = 1 

CHRGLl  = VUlCHI/AREAR ( 1 ) 

RESTX  = HALPDX  - LhRGLl 
FRALT3  = CuRGI.I/HaLFOX 
FKACT4  = RLSIX/HALFDX 
GO  TO  50 
C 

20  CONTINUE 

(JO  3U  1 = 2, EGX 
F'KEVV  = ToTV 

TOTV  = TOTV  + AREAR(I)*DX 
ISAVE.  = I 

lEdOTV  .01.  VOLCHl)  GO  TO  40 
30  COPTINUF 

WRITE (6,1000) 

Slop 
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r 


‘to  COMliMUL 

DELX  = (V/OLthU  - HKL\/\/)/AR|  iSAt/L  ) 
r.Hht)Ll  = (ISAVL  - 1.5)*JX  + |.E.L> 

RES7X  = DX  - OLLa 
FRALl”)  = tJkLX/itX 
FRACT4  = PESIX/LiX 
C 

50  COMINUE 

FHDCl  = ChKoUl 
EEGL2  = El.LCl 

irCVJLCK^  .('f.  i.UL-f.)  GO  10 
t/OLChc^  = O.u 
CHRbL2  = O.U 
GO  TO  100 
C 
C 

C DCTLHniNL  THE  Ea1lU1  OF  hp  HKJPfLLAiOr  br  ULLIMG  IMF  KEf'AlTt.ER 

C OF  THE  LAST  olvli)  V.ITH  F'l-'  H|< oi’FLL Ai\i1  ANU  IHL'M  At-OIRQ  GRIG  VOHji«l 

C AFTlR  orslU  VOuLihK  Ab  bt.FUKb. 

C F l<ACT5  IS  The  fKACTlOf.  uF  I HE  LAST  GKIL  FILLEO  UlTH  f'P 

C PRCPUL^hl. 

55  CL  MI  hue 

TOTw  = ARt  Ak(  ISAV/D^KtSlX 
IF(V-C.LCh2  .GT.  TOTV)  GO  TO  oO 
CHF'(7L2  = VOLCtil'/At't  AK  ( ISAVL  ) 

RLSrX  = RLSTX  - ChKbL2 

If  (ISAVL  ,E«.  1)  FHACTb  = ChKGL2/HaLH;X 
IFdSAVL  .GT.  1)  fl\ACT5  = CtiROLL/OX 
FRACTtf  = FKACTn 
GO  TO  100 
C 

GO  COI-II.'jUE 

IblAT  = IbAVE  + 1 

IF(l^lt.XT  ,L.E.  I'bA)  'jO  to  7 u 

MlKllL(btloOu) 

STttP 

C 

70  COMliiUt 

no  bO  I=INLXT,HbA 
PREVV  = TbT\/ 

TOTV  = lOTV  + AHEAK(I)*UX 
ISAVt  = I 

IF  (TOTV  ,bf.  VtiLCh2)  oO  TO  Su 
V 

AO  CuTiIUt'E 

wt;i  rL(6tieuO) 

STfiP 


100 


ODD 


90  CUMlNUt 

DEI. A = (\/OLCH2  - l-KEVVj/ARr  aR(  ISAVr  ) 

CHRuL<i  = (ISAwt  - l.b»»uX  - CHKOt.l  + l)k  i / 

FHACT5  = UtLX/tM 

UETLKHIME  TKf-  CitaUS  WHLUL  i Ht  CHAutiES  hEbl'l  AilD  END  ANi)  Lu/.b 
POhoSlTIES  IMb  HhlUS  CUMTA)  r-iIijC'  PROPLLL  Aivjl  . 
ion  COMTIIMUL 

EIMC'U?  = riKOl2  + CliHbL2 
lOLbCi  = 1 

lEALCi  = F.l'iUC.l/hx  + l.D 
1BFGC2  = Ikt JCl 
IEFll?-  = EtUCt/UX  + l.b 
C 

IFdEl'iUCl  .LU.  i)  GO  TO  120 
irn  r lERDCl  - 1 
DO  110  I = l,ll'l 
PHIbG2(l,2)  = PhI02 
110  COMlI^lUt 
C 

120  tONIJIgUE 

PHIc:(>2(IEmLC1.2)  = 1.0  - FB  «L  T ( 1 . U - Pbl02) 
rF(V0LCh2  .LT.  i,0C-G)  GU  TO  IbO 
C 

PHlbG  ( lUEGt^  ,2 ) = 1,0  - FRAcm*(1.0  - Pi-.lu) 

IF(lEf«.UC2  .tP.  IbLGC2)  GO  IP  IbO 
IKiETMl)C2  .EG.  ibLGCa  + 1»  GO  TO  lAO 
IPI  = 1BEGE2  + 1 
Ifll  = lENGCP  - 1 
l<0  130  1 = IPl.Ihl 
PhlL-b(I,2)  = Phiu 
130  CCMIIMUE 
C 

mo  COETlEUL 

PhIbGC  ILNl.'C2.2)  = 1.0  - FuACTb^d.O  - dilu) 

C 

IbO  COMIbUL 

IMAF^EI  lST/pHlS/Lh'<GEl  ,LHR0L2  , LivOH  , EbiDCc  , h k aCT .5  , F^mCTA  , Fb  ACT  b , 
5 lUFGCl,  lEEOC  2.  lEbOn  * lEljrC2,PI  lO,Phit2 
IF(  iDEbUG(3..)  ) « RITE  (6,  PHIS) 

C 

RETURN 

C 

lono  KORhAl(//,*  bul  lNOuGH  i<UU.'.  FUl!  Tut  PKOF't  LLAi\iT» ) 

c 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HO 


‘’0 


1 


soehuui  ii'JL  f'A  ltfc, 

roe  I^Ol./ChA^/  I X , ll^  , Xli  , Kb  . NGX  t imGK  . 1 bLGf  . lEll'.'ub  . IPAT^■  ( GO  , 5 » i ARE  AG  ( 5 > . 
5,  AHt  ACC,  ARE  Ab  (bO  ) t IbMl  , u ,L  J t !■  I /»)•  1 t Ul  Al"  i! . b 1 SI  . P I S?  • 0 1 f 1. 1 SO  . 
i AKEbE.  (60  ) » are  AAA»CHAr;i  .l.HbMiitl.HAM3.Tb(^bAP*ARrAr.P(feO  ) ,DAv/ti, 

3.  AKEnh^  I ,L<ELLM),hLl  bFo,  IPS!  , I PSb  , K AUHS  , HP  I bf 

CuPI«(fE/P/IPl(II'lT  ,i“IOUbH,MuD(,b  ,F'i<  11  » ILEf'Ubi  3b) 

LOGICAL  Itl'-IT  ,UkE.D«CE'AM  tCFAf'i^  tCHAK3tE)-lbG 
LCMCbL  PKll.ILEiiUb 


SUbfOLTlKE  PMThb  IhlllALIZtS  ARRAY  IPATH. 

'/ALl  LE  CF  IPaTH  COPRESPOWD  1(1  THE  )'ATF'  kUhhfOUTJkt  S Jk  ThE 
W/  Y - - 

^ - AaIT  3 - 

t - I bUPF  1 7 - 

10  - bSuF  FT  11- 
fPE  CHAPBEP  CONblSlS 
IhE  OTHER 


FOLLb».  J F'b 
1 - 
b 
9 

IF  CHAM' 


A A 1 i> 
FSUKF  A 
pbbRF'A 
I.S  IRLL 


li'vfbR 
f but  F I 
obl  .iRF  I 
UF  I tiiO 
L bli'Jb 


4 - Bl'f.l 

P - FSIJxfB 
12  - HSLiRpf’ 
0|JF-PI>TRS1UNAL 
A X IT  ROHTiNtS, 


PC  til  S, 


b'fjL  ROW  bbll  b AAlS  PuUTIIjLS, 

IF  CHAhi  If  TRUE  THE  CHAr:bLI  LORbISTb  OF  THRLE  nijE-fi  I P FR  S I OHAL 
PCifJS,  IwO  ( bi.b  Lil.t  THOSE  RliLH  O aP?  IS  K OE  AH(  TH)  ThIRO  LiSIAb 
SIMTLAlv  ROUVlRLb.  VALUES  OF  IPAlh  LOPKEbPuRO  TO  THE  RFi..'  ROUTIAFS 
AS  FuLLOkiS-- 

- AXll2«AAlTi) 

9 - ).SIjRa2 

iL'  “ Bf  LR  T 2 t bSUkT3 


«b 


T)iE  FOLLUWll.b  LUbIC  IS  USED  Ft'!;  libTF  FHAii:  AHU  OiAP?  TPijE 
Cbl  (liviUE 
IPAlH(i.l)  = 7 
If  ATP (1,2)  = b 
IPA  I h( lEHUL , 1 ) =4 
IP  ATF  ( lENf  t ) - 2 
DO  fcb  l = 2,f>bX 
IP  (I  .EO.  IFNli;)  b'J  TCb5 
I PATH (1,1)  = 1 
IPATH(1,«;)  = 2 
COM  i ROE 


CCrilRuE 
IF  (.HOT.  ILLbU(:>(5))  PETURM 
WKl  1 1 ( 6 , 2U00 ) 

DO  Vb  u=l,RbP 

URnE(b.2o01)  J,(IFATE(i,j),I=l,IUX) 
49  CUfllRUE 
RETUKIJ 


20rn  FOPliAT  (/// , • ARRAY  IPATH',/) 

2001  FGFKAT(»  RAOIAL  RUR * » 12 » / , 1 UX , 30 ( J 4 ) , / » 1 UX t 30 ( I 4 ) ) 
EM 
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SUBROUTINE  UIMIN 


SUBROUTINE  DIMlN  IS  THE  BARREL  ROUTINE  EOUIVALENT  TO  REGRESS  !A 
THE  chamber.  we  ASSUME  ONLY  IGNITED  PROPELLANT  IS  IN  ThE  BARREL, 

C0MM0N/BUKN/A1PB.LT,PEXP 

COMNON/GSTATE/AO , All A2. A3,A0SP. AlSPi A2SP, A5SP, 

$ AOMP,A1NP,A2MP,A3MP,AoBP,A1BH,  A2BP,A3blMNMSP,WMMp,,*l«lrtP, 

$ GAMBiCUNSP,CUMMPtCUMBPiC>AMSP*GAMI“lP»OAMHPtWMOLE 
COMN0N/EdNS/DlDX,T2DR,T2DX»Tw0TlJR,UT0RiHMB.TU0GJ,DvAXISiD»/AXn  . 

$ DX,DR.NX«bJ,TwOUT iHBP 

COMfiON/GRAlK/  XL(fc0i5),  DO(bO.b),  Ul(60,b)i  FN, 

1  XL  TDKfOib)  I U0TUT(6U»5).  UIT01(60i5)«  XLOt  DOO.  DIO, 

3XLB(100)  ihXLPdUO)  |XLB2{100)  ,UXLB2(100)  .DOB  (100)  *0006(1 00)  « 
$0062(100) ,UOUB2(100) iUlB(100)tUDIB(100)tLIb2{100)»UDlB?(100)»CI02, 

3 DCU2tXL02»XL2(b0,5) »U02(bO,5) .OI2(bOtb) . xL2TDT ( 60 , B ) , 

4 t)02TUT  (60,5  ) , OI2TDT  ( bO  , b ) , FN2 
C0f'l'i0N/GRAlN2/).MBl,  HMB2»  ATPR?,  CT2,  RhOP2t  PEXP2 
COMhON/lNPOrS/Cl  ,C2»C3,C4,T0,  ri6N,CJCONS,RHOP,PHIO»TF,CA,RHOO, 

$ HO,PO,U(3,6TkHOP,HW,UM,DM2,TlGNBf  ,QHCONS,TOTM,DIFFPR 
COMhCN/SPLiM /WHOLEC , WHOLEB 

COMhON/BAKRL/  PHI(IOO),  PHOG(IOO),  HG(IOO),  UG(IOO),  UP(IOO), 

1 PG(IOO),  TG(IOO),  PMDCT(IOO),  dL(lOO),  uDRAG(lOO),  FHlCT(100)» 

2 GCONV(IOO),  UUP(IOO),  Uphl(lOO),  IJRHOG(lOO),  UHG(IOO),  UUG(ICO), 

3 ANASS(lOO),  AMOM(IOO),  aLNER(IOO),  UANASS(IOO),  UAMOMdOD, 
HUAENEK(IOO) .PHI2(100),UfHl2(100) 

LOGICAL  WhOLEC, wholes 
data  PIDF/. 765398/ 

**♦  SUPRgUIINE  DIMN  calculates  dual  granulation  PROPELLANT  COMBUSTION 
DOTMH  AND  LOTMM  ARE  COMPUTED  TO  DETERMINE  THE  AVERAGE  ENERGY  CF 
UOTMH  = O.U 

♦ THE  BURNED  PROPELLANT, 

DOTnM  = 0,0 

DO  100  I = 2, NX 

IF(rHl(l).GE..0.99999.AND.  Ph12(I)  .GE.  0.99999)GO  TO  90 
MULTIPLRF  propellant  COMBUSTION  CALCULATIONS 
1F(PhI(I)  .GE.  0.99999)  Gq  TO  40 
R = aIPB  * PG(I)**PLXP  + CT 
BURNL  = R * TWOUT 

♦**  update  grain  length 

UXLL(I)  = XLPd)  - BURNL 
***  SEE  IF  CRAIN  HAS  SPLIT  INTO  SPLINTERS 

♦ NOTE  THAT  OLD  DIf-iENSIONS  ARE  BEING  ILSTEL 
IF(DOb(I)  .LE.  3,0*OIU(I))  GO  TO  20 

♦♦♦  UPDATE  other  DIMENSIONS 
UUOBd)  = D08(l)  - BURNL 
UDIbd)  = DIB(I)  + BURNL 
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C ♦*»  CALCULATE  OLU  AND  NEW  VOLUMES  OF  A DRAIN, 

VOLD  = FIDF  ♦ XLH(I)  ♦ (DOt^d)  ♦ UOB  ( I ) - FN  * DIB(IJ  * niF(I)) 
VNEW  = f lUF  * UXLB(I)  *(U[jOR(I)  » UDOb  ( 1 ) -FN*UC)IB  ( I ) *U0IB(I)) 

GO  TO  6U 
C 
C 

C CALCULATE  OLD  AhJl)  NEW  GRAIim  VOLUMES, 

C AFILP  THE  bPAIh  HAS  SPLINTERED.  VALUES  EOP  THE  CROSS-SECTIONAL 

C AREA  OF  THE  PARTICLES  GO  K IO  ARRAY  UC'B  AimD  VALUES  FOR  PEKIMEFER 

C GO  IMTu  ARRAY  Dlb,  IF  THE  GRAIN  HAS  JljST  SPUluTEREn,  AREA  AND 

C PLRIMLTLR  HAVE  TO  BE  INITIALIZED,  IF  THE  GRAIN  HAS  JLSt 

C SPLINTERED,  COD ( I ) IS  ABOUT  3,0  * DIB(I)  AND  IF  NOT 

C DOP(I)  WILL  BE  LESS  THAN  UlBtl). 

2U  CONTllVUL 

IFFDOBd)  .LE.  DIBID)  GO  TO  2b 
WHCLEC  = ,F^.LSL, 

AREA  = FIUF  * (OODd)  * DOEM  I ) - FA  * DID  ( I)  ♦i)lB  ( I ) ) 

Did)  = 3,1*.  * (i)OB(I)  + FK'  ♦ DiBd)) 

DO (I)  = AREA 
C 

25  LlElK  = bOKNL  ♦ 0.5 

UUOiid)  = DuB<i)  - UIBd)  ♦ DELF 
C 

IF(UOOB(I)  .GE,  l,0£-7)  GO  TO  27 
UOCb(I)  = 0,0 
DDJbd)  = 0#0 
uxLB(i)  = n,n 
UPhi d ) = 1,0 
GO  TO  50 
C 

27  CONTINUE 

C ASSUME  that  the  RATIO  OF  PEkIMETEk  SOUAKtU  TO  CROSS-SE C I lONAL 

C ARLA  IS  CCNSIANI 

UDIHd)  = SuRT(  DIBd)  * DIH(I)  / DUE*  ( 1 ) ♦ UDOB  ( I ) ) 

***  VOLUME  IS  LLNGlH  dMES  CROSS-SECT lOMAL  AREA 
VOLU  = XLL  ( I ) * UObd  ) 

VNEW  = UXLbd)  ♦ UUUb(I) 


30  CONTINUE 

IKVNLW  .Lt,  0.0)  GO  TO  *4  0 
DELTAV  r VOLD  - VNLW 

CALCULATE  ivUMBER  UF  GRAINS  PER  GRTD/VOLUML  OF  GRID 
PNCV  = (1,0  - F'Hl  ( 1 ) )/VOLU 
TEMP  = PNUV  ♦ ULLTAV 

CALCULATE  GAS  MASS  GENERATED  BY  BURNING  PROPELL ANT/GH In  VOLUME 
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HMLiUKI)  = ♦ KHOP 

CUI^MP  = CUMMH  + TEMP*RhOP*UX*AMA5sS(I  ) 
rOThH  = OOTMH  + PMUOT(I)  ♦ HMBl 
D01M«I  = DOT  MM  + PhUOT(I) 

UPD/kTE  POROSITY 

UPHI ( 1 ) = PHI ( 1 ) + TEMP 

GO  TO  50 

40  UPHKI)  = PHI(I) 

50  COKTIMUfc 

***  LOGIC  FOR  SIIjGLE-PLRF  PROPFLLANT 
IF(HHI2(I)  .GE.  ().yy9sy)  GO  TO  95 
l<  = ATPB2  ♦ Po(I)**PEXP2  + CT2 
BURNL  = K * TWOUT 

♦♦♦  update  GRAlH  DIME NS IONS 

UXLti2(I)  = XLb2(n  - bURNL 

UDCU2(I)  = DOUPd)  - BURNl 

UDIb2(I)  s UIB2(I)  + BURNl 

♦ CALCULATE  OLD  ANU  MLIrJ  VOLUM.ES  OP  A GRAIN 

VOLO  = PIDF  ♦ XLB2(I)  * ( DUH2  ( I ) *U0B2  ( 1 ) - 0IB2  ( 1 ) *L)lB?  ( I ) ) 

VNEW  = PIDF  * uXLb2(I)»(UU0P2(I»*UD0B2(I)  - UUIB2 ( 1 ) *00102 ( I ) ) 

IFIVNEW  ,lL.  l.OE-10)  GO  10  MO 

DELTAV  = VOLD  - VNEW 

PNDV  = (1.0  - l'rlI2(  I ) )/V0LU 

TEMP  = PNUV  ♦ UELIaV 

♦ **  ADL  Gas  generated  by  SIIMGLE-PERF  PROPELLANT/GRID-VOLUME 

TO  THAT  generated  HY  MULTI-PLRF  PROPELLANT 

PHDOT(I)  = h’Ml)OT(l)  + TEMP  ♦ RH0P2 
CUMSP=CUMSP+TEMP*RH0P2*UX*AMASS( I ) 

DOTMH  = JOTMH  + TEMP  * RHOPp  * HMBP 
DOThM  = UOIMM  + TLfP  ♦ RH0P2 

**♦  update  porosity 

UPhl2(l)  = Pftl2(l»  + TEMP 
GO  TO  100 
80  continue 

UXLU2(I)  s u.U 
UD0U2(I)  = U.O 
UD1U2(I)  = 0,0 
UPHI2(I)  = 1.0 
GO  TO  100 
C 

90  UPHKI  ) = PHI(l) 
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95  UPHI2(I)  = PHI;£(i) 

100  COMINUE 

IF(UOTMM.RT.O.O)  HMB  = DOTHH/UOTMh 

KETURN  • 

END 


SUBKOUTINL  DKAG ( OHAGX t INB « I , J ) 


r ' 


C 

C SUBROUTINE  DRAG  CALCULATES  CURRENT  AND  UPDATED  VALUES  FOR  DRAG 

C IN  THE  axial  DIRECTION  AND  UPDATES  UTDT  AND  VTDT, 

C THE  ACTUAL  DRAG  USED  IN  THE  FINITE  DIFFERENCE  CALCULATIONS  IS 
C AN  AVERAGE  OF  THE  CURRENT  AND  UPDATED  VALUES. 

C 

COHMON/BARRL/  PHI(IOO)*  RHOG(IOO).  HG(lOO).  UG(lOO),  UP(IOO). 

1 PGdOO),  TG(lOu)«  PHDOTdoO).  QLdOO).  UDRAGdOO),  FRlCTdOO* 

2 GCONVdOO).  UUPdOO).  UPHKinU).  URHOGdOU).  UHGdOO).  UUGdCO). 

3 AHASSdOO),  AMOMdOO).  AENERdOO).  UANASS  dOO ) . L'AFORdOO). 
4UAEiMFRdOO)  .PhIkdOO)  .UPHIkdOO) 

COMFiON/AVgDT/RHOTDT.PHIRHO.PHIAVE.RHOAVE.UBGAVE.UPBAVE, 

$ utct.vbgave.vtdt 

COrhON/CLoCK/TlHE.DELT 

COrNON/DRGCON/VTSG 

COMMON/GRAIN/  XL(b0.5).  D0(fe0«5).  DI(bO»b)»  FN, 

1  XL1DT(60,5).  DOTLT(60.b)f  01TDT(60.b)t  XL0»  DOO.  DIO. 

3xLPd00)  tUXLBdOO)  ,XLB2d00  ) ,UXLF32dOO)  .L Ob (10  0)  .UDOBd  00)  , 

$DOBk< 100 ) ,UC0B2 (100 ) « DIB (10  0 ) , UDIb (100 ) . DIB2 (IC 0 ) . UPlnP (1 00 ) . C I 02 . 

3 0002<XL02f XL2(60«5) tU02(GOt5) «D12(60«b) .XL2TD1 (GO.b) . 

4 D02TDT(60,5) . D I2TDt ( 60 , b ) , FN2 
COPriON/GRAlN2/HMBl,  HMBk.  ATP82.  CT2,  RH0P2.  PEXP2 
C0MhON/PRlMV/bPDENS.BPRAD(6u tb) » AGLNBP » BGLNBP , EXPBF 
COMNON/BAG/PHlUb(60.5) . RHOBG(60,5).  HbG(60«5),  UB&(60,5). 

1 VBG(60,b),  UPH(60«5).  PCH(60t5).  T2C(60«5), 

2 DCTMIG(bO).  OBAG(60fb).  XCRAb(60.5)i  DOTMB(60.b),  UPdDI ( CO . E ) « 

3 PHlBTD(60.b) I RHOBTD ( 60 . 5 ) , hBGTD(60,5),  UPGT0(60.5). 

4 VBGTD(GO,b) .TBb(60.5) .DOTMHb(60) ,nOTMP(60.5) . PHIBP ( 60 . 5 ) . 

b PHlPTD(6(j.5)  .T2R(60)  .TBF(60.5)  ♦PHI2T0(b0,5)  . LPRk(b0.5)» 

b T2K2{£  0) ,T2C2(60.b) . PHIBG2 ( bO . b ) 

LOGICAL  iNb 
DATA  GRAV/32.1b/ 

IF (PHlAVE.GT.0.9a)  RETURN 
C 

C THE  logical  VARIABLE  INB  IS  .TRUE.  IF  SUBROUTINE  DRAG  WAS  CALLEC 
C FROP  A one-dimensional  SYSTEM  WHERE  THERE  IS  NO  RADIAL  VELOCITY 

C AND  .FALSE.  IF  CALLED  FROM  A SYSTEM  WHERE  THLRE  IS  RADIAL  VELOCITY. 

C 
C 

C SINCE  A FIXED  VALUE  UF  DM  OCCURS  IN  COMMON  BLOCK  INPUTS,  IF  THAI 
C COMMON  BLOCK  IS  LVLR  PUT  IMO  SUBROUTINE  DRAG,  THE  DM  HERE  SHOLLD 
C BE  GIVEN  ANOTHER  NAME. 

C 

C 

C A AND  b ARE  THE  SAME  IN  BOTH  THE  AXIAL  Aiv,D  RADIAL  CALCULATIONS. 

C THE  ROUTINE  CALLING  DRAG  SHOULD  HAVE  ALREADY  CHECKED  THAT  PHIAVE 

C IS  NUT  1.0, 
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I 

1 


I 

IF(INB)  GO  TO  b , 

TOTAL  POROSITY  WAS  PUT  INTO  PHIBb  OLGOHL  THE  PATH  SUBROUTINES  WERt 
CALLED.  SEPARATE  OUT  THE  PORUSIIY  OF  P.ULTI-PEKF  PROPELLANT.  I 

PHIMP  = PHldG(l.J)  + 2.0  - PhiaPd.J)  - PHIBG2(I.J)  j 

i 

CALCULATE  EFFECTIVE  uIMENSlONS  OF  THE  PROPELLANTS. 

IF(DO(I.J)  .GT.  uldiJ))  OF  = l.B*DO(I.J)#DO(l,J)*XL(I.d) 

IFCOOd.J)  .LE.  Old.J))  D^  = - DlO)**2*XL(IiJ) 

IF(UM  .LE.  0.)  UF1  = l.OE-5 
OF,  = OM**0.333 

VFPOP  =0.7eb4*XLd.d)*(DOd,J)*DOd,J)  - FN*DI(I,J)*DId,J)  ) 

IFCVPKOP  .LI.  l.OE-5)  VPRoP  = l.OE-5 
C 

0M2  = 1.5*La2d.J)»U02d.J)*XL2(I.J) 

IF(UM2  .LE.  0.)  □F12  = l.OE-5 
OF.?  = DM2**0.333 

VPRUP2  = 0.7fl54*XL2d«J)*(U02d»  J)*DP2d,  J)  - DI  ? ( I , J ) *0 1 2 (1 , v,  ) ) 

IF(VPROP2  .LT.  l,0L-5)  VPK0P2  = l.OE-5 
C 

VBf=4.169*liPFTAU(  1 , J)*BPRAD(  I . J ) ORPR  AD  (1 , J ) 

IF(VBP  .LT.l.E-5)VbP=l.E-5 
C 

TERhP  = (1.0  - Phir'.P)/VPROF’ 

TEHhP2  = (1.0  - PhIBG2(I . J) )/VPhOP2 
TERl'.HP=(1.0-PhlbP(IfJ)  )/VBP 

IF((TERFP  + TEKFP2  + TERMbP ) .LT.  l.OE-5)  TERhP  = l.OE-5 
VTS.(<G  = GRAV*([m*TERF*P  + OF'2*TERF1P2  + 2 . O^bPRAO  ( I . J ) ♦ TEH WBP  ) / 

% (lERhP  + TERhPii  + TERMBP) 
l?C  TO  7 
5 CUMINUE 

PHIMP=PHI  ( I )-Phl2d  )+1.0 
IF  (DOB  (I  ) .GT.UlBd  ) ) Uf^=l  . 5*  UOd  (I ) *1)05  (1  )*XLBd  ) 

IF  (l;OB(  I ) .LE.UlBd  ) )nM=0.c}44*  ( DOO-DI 0 ) ♦♦i;*XLB  (1  ) 

1F(UF^.LE  .0.0  )Uh=1.0E-5 
Dhr0r'**0.333 

VPROp50.76b4#XLB(  I )*(OCB(  I ) *UOiJ  ( I ) -FN4.C  lEM  I ) *010  (I ) ) 

IF (VPROP. LT.1,0E-5)  VPROP=l,OE-b 
C 

PM2  = 1. 5*0002(1 ) *0002(1 )*XLD2 ( I ) 

IF(L<r«2.LE.0.0)  DM2  = 1.0£-5 
DM2=DM2**0.333 

VPROP2  = 0.7b54*XLc32  ( I )*(D0B2  ( I ) *0002  ( I ) -UlB2  ( 1 ) *DIB?  ( I ) ) 

IF ( VPR0P2.lt .l.OE-b)  VPROP2=l . OE -5 
C 

TERMP= ( 1 . 0-PhlhP ) /VPROP 
TER.-IP2=(1.0-PHl2d  ) )/VF  R0P2 
IF(TLRF‘.P+TlRMP2.L1  . 1 . OE-5  ) TE  RMP  = 1 . OE-5 
VTSb&=GHAV*(DPl*TERMP+l)M2*TEKMP2)/(TERhF+Tt  RMP?) 

7 CONTINUE 

IF  (VISGG.GT.VTSG) VTSGGsVTSG 
CONST=4.0*(  1.0-PHlAVE)/VTSGf. 

C 
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C 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


c 

10 


c 

20 


C 

30 


A = CONST*hhOTUT 
B = 2.0*HH1MHO/(l)ELT*GRAV) 

THE  FOLLOWII'jG  CALCULATIONS  INCORPORATE  ThL  Slf'iULTANEOLS  SOLUTICAS 
OF  THE  DRAG  EQUATION  AND  FINITE  UIFFERLNCL  EQUATIONS  FOm  UBG 
TO  calculate  the  updated  quantity  for  UbG  EXPLICITLY. 

CALCULATIONS  ARE  DONE  IN  ThL  FOLLOWING  SEQUENCE  ( DWXT  aaH 
DRxTDT  are  The  current  and  updated  drag  IN  THE  AXIAL  DIRECTION) 

1)  COhpUTE  ORXT 

2)  COHPUTE  UlUT  - UPBAVE.  (UNU),  WHICH  IS  THE 
SOLUTION  OF  A QUAURATIC  AND  1 HEN  GET  UTDT 

6)  COhPUTE  URXTUT 
A)  CuhPUTE  URAGX 

DIFPU  = UBGAVt  - UPBAVE 
IKABS(DIFFU)  .bT,.UU01)bO  TO  lO 
ORAUX  = 0,0 
GO  10  40 

DHXT  = CONST*RHUAVE*DIFFU*ABS(DIFFU) 

C = DRXT  - b* (UTuT-UPBAVE ) 

DISCRH  = b*H  - 4,0*A>»C 

IF (UISCRM.LT.O.U)GO  TO  20 

UHU  = (-H  + SQKT(UISCKM) )/(A+A) 

GO  TO  30 

DISCRP  = B*U  + 4.0*A*C 

UHU  = (B  - SORT (UISCRP) )/TA+A) 

UTDT  = UMU  + UPbAVE 
DRXIDT  = A*UHU*AHS(UHU) 

DRAOX  = (DRXT  + URXrDT)»0.5 


40  iF(iNB)  Return 

UPLATE  VTDT.  URAGR  UOES  NqT  NEED  TO  BE  CALCULATED  SINCE  IT  IS 
NOT  USED  EXPLICITLY  IN  THE  FINITE  DIFFERENCE  EQUATIONS, 

1F(  AbSTVBGAVE)  ,LE.  0.0001)  RETURN 
C 

DRRT  = CONST*RHUAVE*VBGAV£*ABS( VBGAVE) 

C = DRRT  - B*VTDT 
DISLRH  = B*B  - 4,0*A*C 
IF(UISCRH.LT.0,0)GO  TO  60 
VTET  = (-B  ♦ S&hTTDISCRM) )/( A+A) 

RETURN 

C 

60  DISCRP  = B*B  + 4.0*A*C 

VTDT  = 18  - SQRT (DISCRP) )/( A+A) 

RETURN 

C 

END 
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SUBKOUTINE  ESURT2 


***  FSUKT2  IS  lOtfviTlCAL  TO  bSuKA2  EXCEPT  THE  BOUNDARY  IS  AT  GRID  I + 1 
INSTEAD  OF  1 - 1 

COrMON/AVGUT/RHOTDT.PHlRHOtPHlAVE.RHOAVL.UBGAVE.UTDTtVROAVE  ,VTCT 
COPKCN/CHAM/I  , J ,XB,RB,NGX,NGR,lBEGB,ItNUti,IPATH(60.5) tAREA6(E ) , 

$ AREACH,AREAC(bC  ) » IGNIT  , ONED  t DI Al"  1 » Cl  AF  ? * 0 ISl . D1 S2 » D I S 3 » DI S**  t 

$ AREAR(60)  »AKtAAX.CHAMlfChAM2fCHAFi3*TOPbAPiARrAGP(60)  .DAVGt 
$ AKEAH2,LIAFIB1  , hELENu » BELtEG , IPSl , IPS2  , R ADRS  , BPIGN 
Curi-iON/CLoCK/TIi-iEtDLLT 

C0F'F;0N/EQNb/tllUX,l2UR  .T2DXtTW0TDR, DTDR«HF:HiTWOG JtOV AXIS. n VAX n , 

S DX  t DR  . NX  . GvJ  » T UOuT  t HflP 

cofmon/gascon/ru.rru.cvo.cvh 

COFriON/BAG/PHIbG(t.0.5)  . RhOBG(60.B).  HbG(bO»5).  UBG(60,5). 

1 VBb(6(J,b)t  UPB(faU.b),  PCH(6U.5).  T2C(b0.5), 

2 DOli11G(fc0».  OBAbCGO.b) . XDRAG(60.5).  D01MB(60.5).  UPBDT<60.E), 

3 PHlBTDjbu.b)  , khOBTD(60.5)  . hBGTO(60,5).  UBGTD  ( 60  . f> ) . 

4 VbbTLMGO.b)  .IHb(b0.5)  »D0TF!BG(6U)  . DOTFiP  ( bO  ♦ b ) .PHIBP(60.5)  . 

5 PHlPTDlGo.b) .T2K(bU) . rBP(bO.b) .PHl2TD(b0.5) . 0Pb2(6C.5). 

6 T?.k2(e>0)  ,T/C2(b0.5)  .PHIBG2(60.b) 

LOGICAL  IGMT  ,0NED.CHAM1  ,CHAM2.CHAM3.BPlbN 


NAFLLlST/FSuRCK/BUbGEK.GAM. I t J.F4,F5.G4,G5.E4.C4.Cb.04,RHOTUT, 
$ PHITDT.CHBGTD.Qb 


C 


CALL  bSPROP(Ro.RRO.K.CVo.CVH.CV,PCH(  I . J)  ,hBG(  I , J)  .TDUFI, 
$ RHObbd.J)  tOBbd.J)  tVBGdtJ)  .GAM .CP. 2) 

BUGGER  = (GAM  - 1.0)  / TWObJ 
IMl  =1-1 


IN  THIS  SUBKOUTIiML  PHIB6  REPRESENTS  THE  TOTAL  POROSITY, 
POROSITY  OF  THE  PROPELLANT. 

F4  = PHIBGdMl.J) 

Fb  = PHIUGd.J) 

G4=RhOBC( IMl, J) 

G5=RH0BG(I.J) 

H4=F4*G4»UBGdM.  J) 

EI4=HBG( IMl .0 )-PCH( IMl . J)/G4/778,0 

EI5=HBG( I, J)-PCH(1 . J)/G5/778.0 

C4=G4*EI4 

C5=G5*E15 

DEMOM=2.0 

PHlAVt=(F4+F5)/DEN0M 
RhOAVE= ( G4+Gb ) /UENOM 
RHOAVE  = (G4  + Gb)  / DENOM 
UB6AVE  = 0.0 

UPPAVE  = (UPBdM.J)  + UPBd,J))*0.b 


NOT  JEST 


PHITDT  = PhIBTDd.J)  + PHl2TD(I.J)  + PHIPTDd.J)  - 2.0 


no 


► DO  ImOT  ^'ULllPLY  0LLT*D0IMlO(I)/nVAXlS  BY  2.0  AS  IN  TSUOA?  HfCALSE 

► GRID  NGX  HAS  VOLO^'t  DVAXiS  Wh£KEAS  GRID  1 HAS  VOLUR'F  D\/AXlb/2. 
RHCTDT=(Fb*KH0AVL+L)TDX*H4  + l.ELT*L;07r''IG(  X )/ 

$0\/AXIS+[iOTMH(  1 , j)+DOTMPl  I,.J)  )/PhlTLT 
00  = 0BA6(1«vJ) 

IFIKHtTDT  .LF,  0.0)  WFvXl  L ( b SUPCK  ) 

PhiKHO  = Phl7Dl>RHUrDT 

UTCT  = 0.0 
VTIT  = U.O 

HIC-.M  = HBG(  I .1 ) 

IF  (LOll^IOd)  .GT.  0.00001)  HIGK  = Hbb(1.2) 

E7t  ) = (Fb*(C't  + Cb)/CitlM0rt  + UT0X*(HH*tI‘4 
$+PCh(  IMl . J)*  (F4*UBG(  Irtl , J)  + ( 1.0-F^  )*U)'b(  I'll  t J)  )/77e  .0  ) 

$ + UtLT»(D07MIG(  1 )*HlGN/(>\/AXlS-Qi3AG(  I,  J)  ) 

*+DG1fib(  1 lO)  ♦HMb  + OOrrtP(  I.  J)  ♦HBP)/FhIt<HO 
CALL  GSPHOP(HO.Kr(C.««CVO»CVh.C\/,F!\i,  tlJT.TDlJM, 

IKHOroT.U  rCiT  . O.O  tOAf  iCP^H  ) 

HBGTD( I. J)=tTUT+pN/RHOTDT/77f.O 
CHPbTD  = HBGTud.J) 

IFlLHbGTO  .LT.  U.U)  WHITE ( F , F SUHCK ) 

RHObTUd.J)  = KHOTDI 
LlbGTHI.J)  = oFul 
VHGTDdfJ)  = XKiT 
RLTUHIJ 
f NO 
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SUBROUTINL  GSPKOP ( KU ,KRo » R t C Vo • C VH » CV t H . H t T t RMO ♦ U » V t G AW t CP . IP«CP ) 
COWMO(\i/GSTATE/AO,  AltA2,  A3,  A0SP,A1SP,  A2i>»S  A3^P, 

$ AOMP, A1MP,A2WP, A3rtP,A0BP, a1BP,A2BP, ASHP.wnSPiWWMr .WMhP, 

$ GAWlB,CuRSP,CUNWP,CUMBP,&AWsP»GAMMP,bAKBP.wMOLE 
COKhON/EQNS/DTDX,T2UR,T2DX,TWOTDR,DTDR,HMb»TWOC-.J,DVAXI.S»DVAXn  , 

$ OX,DRfNX«GJ,TwOUT,HBP 
data  XJUL/778.0/ 

IPROP  = 1 - GIVEtJ  T AND  P 

IPROP  = 2 - GIVEN  M AND  RHO 

IPROP  = 3 - given  H AND  P 

IPROP  = 4 - GIVEN  E AND  RHO, 

GAWsGAMIB 

R,  CV,CP,  ANu  GAW  are  TO  BE  CALCULATED.  ALSO,  OF  T,  P,  h,  AND  PHD 

THE  INO  Thai  are  not  given  are  to  be  CALCULATED. 

GO  TO  (10,20,30,40) »IPROP 

THE  lQUATIOMS  FOR  IPK0P=1  ARE  VALID  ASSUhING  GAS  VELOCITY  IS  0. 

10  CONTINUE 

C *♦*  THIS  OPTION  IS  USED  ONLY  ONCE  IN  CHSET  WHERE  NEARLY 
C ideal  CONDITIONS  EXIST  AND  THE  CO-VOLUME  IS  ASSUMED  EQUAL 

C *♦*  TO  ZERO. 

R=1545,3/UMGLE 
KHO=P/(R»T ) 

E=R*T/(GAM-1.0)/XJUL 

H=E+P/(RHO»XJUL) 

RETURN 

C 

20  CONTINUE 

R=154b.3/WM0LE 

COVOL=AO+Al*RHa+A2*RHO**2+A3*RHO**3 
P=RHO*XJUL*  (GAM-1.0  )*(h-U*U/TWOGJ)  /(GAI“.-RH0*C0V0L  ) 
T=P*(1.0/RHO-COVOL)/R 
RETURN 
C 

30  CONTINUE 

RHC=P/( (GAM-1.0)/GAM*(H-U**2/TWOGJ) )/XoUL 

31  C0VUL=( AO+A1*RHO+A2*RHO**2+A3*RHO»*3) 

RHOSsRHO 

E=h-P/ {RHQ»XJUL)-U**2/TW0GJ 
RHO=F/( (GaM-1.0)*E*XJUL+COVOL*P) 

IF ( ABS(RHO-RHOS)/RHO,GT,0.01 ) Gu  TO  31 
R=1545,3/PM0LE 
T=P*(1.0/RHO-COVOL)/R 
HTEMP=H-U*U/TI«iOGJ 
GAMsHT  EMP/ ( HTEMP-P/ ( RHO*X JUL ) ) 

P=F/(RHO*T) 

RETURN 
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40  COMINUE 

C INTLRNAL  ENERGY, E,  IS  INPUT  TO  THIS  OPTION  RATHER  THAN  ENTHALPY i h 

E=h 

41  CONTINUE 

R = l!34b.3/WM0LL 

COVOL=AO+A1*KHU+A2*HHO**2+A3*RHO**3 
T=(GAM-1,0»*(E-U**2/TWOGJ>/R  ♦XJUL 
P=F»T/  ( 1 .0/RHO-CO\/OL) 

HTEMP=H-U*U/TUOGJ 

GAP'SHTEMP/  ( HTEMP-P/  ( RHO*X  JUL  ) ) 

R=F/(RHO*T) 

IF( iPKOP.EG,2)  H=E+P/(RHO*XJUL) 

RETURN 

END 
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SUBKOUTIiMt  riOLLb 


C* 

COM‘lOK/CHftl  / IX,  1K,XH,KB»N&)i  IBLbb,  iEf'iuB.  IPATtU  BO  »5)  , AKl  AG  IB  ) , 

$ AKE  ACH.AKKaCIGo  ) , IGMT  ,tJMD,L)lAi";l,ljlAMi!,UISl  ,Ol5;2,niE,3,r  ISA  , 

$ AKBAH  ( faO  ) , AI<LAAX,CHAM,CHAh2,CHAr'3,  TOPt  AP  « AhBAGP  ( 60  ) .QAi/C  , 

$ AHEAHP.DlAPbTtMtLENDiBELPEG, IPSl ,1F  S2,PADPS,RPI&f' 
CoMnOl'i/L*i3P‘S/GlDA,72UR,T2LlX,Ti^fjTLrt,UTCk,hKh«  ri<JOGJ,D\/AXIb»nVAXIT  , 

$ DX,U«,K'X,GJ,l«uOT,HBP 

CG^MON/hOLf  A/KAbriOL(Ob)  , iMKUWH , I'JhOLES  ( 6b  ) ,XCL{6b)  ,AFEAH(bn)  , 
f Ah(bO)  ,FNACI(t.U) 

DlPi-IMSlUlM  TA(f3b) 

LOGICAL  IGMT  ,0.j|-.L,CHAPl  ,CHAF  2,CHAP3,bPILi-l 
OAIa  ( l/3.1‘tlb'33/ 
r 

C 

C*  S'JUPLUTINE  POLLS  CALCULATES  THE  HOLE  AHLA  EXPOSEP  Tf  EACH  AXIAL 
C*  GRID,  IT  FCHI-S  ARRAY  AREAH.  At<LAH(l)  GIVES  THE  EXPOSED  POLE 

C*  ARLA  AT  GRlL  I.  THE  HOLE  AREA  EXPOSED  Tu  A GRID  IS  CALCULATED 

C*  AS  THE  Mull  ARLA  lEF  I OF  ThF.  RIGHT  BuUImLaF  Y uF  THE  GRID  MNliS 

C*  THE  fiGLL  area  Lt  h I UF  THE  LEFT  BOUImOART  OF  THE  GRID. 

C* 

C*  PnOixH  - (NiUMilR  UF  RURS  OF  HOLES 

C*  XLL(l)  - CENIbiv  LliME  OF  POLES  liM  ROn,  I 

C*  RAOhCLd)  - RADIUS  OF  HOLES  IN  ROW  1 

C*  Ta(1)  - F'OLE  ahEa  of  hole  ROw  I THAI  ALkEAUY  IS  ASSIgRED  TO 

C*  A GRID,  initially  TA(I)  IS  SET  AS  0.  AFTER  AREaXP  IS 

C*  CALCULATED,  TA(I)  IS  SET  Tl  AREaXP. 

C* 

C 

call  LLLAF  ( TA  ( 1 ) ,T/.  ( 85)  ) 

CaLL  LLi;  Ah  ( AhE/i|i(  1 ) , AREAH(t.U  ) ) 

C 

C*  II  indexes  THE  CAluS 
X = -DX 

DU  AO  11  = l,lLtMDp 
C* 

C*  X IS  THE  COUKDllArE  OF  THE  CEImTER  OF  GRID  ll 
X = X + DX 
GRILA'D  = X + ,b*L)X 
C* 

C*  DETIfPIHE  TFE  area  UF  each  ('Oh  OF  Hulls  that  lies  rffore  the 
C*  FNl;  (.F  the  GkID 
c 

c*  12  ii'DLXES  The  fowS  ur  holes 

DC  60  12  = IflMF.UhDi 

c* 

C*  IF  THE  tM)  OF  Gi'iL  11  IS  lu  OE  LEFT  CF  HOLES  IN  PDV,  I2  (Ai>iL  TFLS 

C*  iFiE  rest  of  fee  I OhS)  NU  hoRE'  HuLE  AE'EA  iS  FAEM.'SLD  TO  GRID  ll 

IFIGFLEin  .Lt.  XLL(12)  - HAti 00(12))  GO  To  HO 
FNE'  = float  (AhuLFS(  12)  » 
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nonn  o n n onn  non  n nnn 


C 

C*  IF  THE.  ENU  tK  iHt  t-HlD  IS  Tt;  THE  P.IOHT  OF  TI'E  HOLES  IN  ROW  Ik,  /IQD 

C*  the  LIMIIKE  area  of  IHE  HOLES  Ifj  ROW  Ik  TO  AKLAXP 

C*  otherwise  THE  F.  kO  OF  THE  C-Rlf.i  lIES  WITHlfg  HOLES  IN  ROW  12  ANO 

C*  THE  AMOUNT  OF  EXPOSLU  AREA  WILL  BE  OETEKMlNEU. 

IF(GRDEND  .LI.  XCL(12)  + RAOHOLd^))  GO  TO  10 
ARFAXP  = FNh*f1*RaOhOL( I2)»K»UH0L( 12) 

GO  10  20 


* 

10  TERM  = GROENH  - XCL(I2) 

♦ FIND  HALF  UF  ThL  CENTRAL  ANbLE.  TO  THE  Chohf;  AT  THE  GRID  END 

THETA  = ACOS(AtS(TEKH)/RAt;)iOHI2)  ) 

♦ 

♦ FINE)  AREA  OF  CIkCOLAR  SECTuh  WHOSE  CENTRAL  ANGLE  IS  2*ThLTA  ARC 

♦ area  of  TRIANCiLE  FGr%MEl)  BY  THL  CHORD  AND  RaDII 

RSC  = RAnHOL(I2)*KAnhOL(l2) 
areas  = THElA*Rt>0 

ARE  AT  = SQRTiRSb  - TEKM  + TFPM  ) ♦ AfiS  ( TERM  ) 

♦ 

* EXPOSE  0 AREA  FkOi'  ONE  HOLE  IS  SCCTOf<  AREA  - FRIANGLE  AREA  OR  TFE 

* HOLE  area  MI'.US  this 

AREAXH  = (AREAS  - AKEAT)*FNH 

IF (TERM  .gT.  U.O)  AKEAXP  = PI*RSe*FNH  - AREAXP 

* 

20  AKEaH(II)  = AREiVnai)  + AKEAXP  - TA(12) 

* 

TA(12)  = ARLAXP 
30  CONTINUE 

IF(  AREA.H(ll)  .LF.  0.00001  ) aRE.A»i(I1)  = u . 0 
40  COMINUE 


CALCULATE  A)i(I)t  T)(E  BELL  TUBE  AREA  IN  bRIU  1,  AH(I)  DOES  EOT 
INCLUDE  AREA  OF  PSLUUO-HOLE S . 

CALL  LLEJAKUttKl)  »Al.(G0)  ) 

DO  GO  I = IEEo3,  IEhLE! 

AEi(I)  = ARLaIKD 
60  CONTINUf 
C 

C IF  THEKL  IS  A PSLUEjO  HOLE  aT  GRIL  IE’ECB  0»  aT  GRIL  IFAD-T.  IIS 

C ArlA  SHOULD  NOr  HAVt.  BEEN  IHCLUDEn. 

C THERE  ARE  NU  PSnuDOHOLES  AT  GRIL  lEtitT..  TIiNRL  IE  ONE  aT  IhtGE. 

C IT  HAS  RAplUS  (SHOULD  BE  O.U)  P/UlHrL(l). 

APSLHU  = Pl-»RAtJHOL(  1 )*RAL>hCil  ( 1 ) 

AH(IBE.GE)  = AH(IBLGU)  - APEFuD 
C 
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c TALCULATE  FKaC1(1),  I Ht  FKAfTlOiviAL  VOLuf  E UE  A (.RIO  (.OT  uiVIEJER  TEE 

r influence  of  the  uLIL  TUtsE  EiOIFS.  THF  ViiLUrL  CCf'EIDEHED  TO  bE 

INFLUrfiCEU  lb  haUEu  OM  ImReC  •Ii'IES  THF  ht  M SPEiE « I C al.  VOLlJi'lF 
COM-ulLU  Fl-Ur  I E,t.  KAUlUS  Oh  A TUliF  EtOLL . 

DO  70  1 = lilt-NUH 

FKACT(l)  = 1.11  - 2.  U*S(.iRT  ( Ali(  1 ) ♦Ah(  1 )*AH(  1 )/|.I  ) /(  AkLAR(  I ) ♦CX  ) 
IF(FRaCT(1)  ,LT.  0,0)  FRACKIJ  = U.u 
70  CUMII'jUL 
KETUPIV 
LNO 
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SUBROUTINE  HOLSET 

LOB>iON/CHAfi/IX  1 lKiXUtKb*Nb>  .NGR,  IbElGB  i ILNUB  i I P/'.  TH  ( BO  t b ) . AKL  A&  ( S ) i 
$ APLACH,ARPAC(60)  »HiNlT,CM'iED,UlAMl,LlAN2.UlSl,ElS?,DIs3tLISA  . 

$ AKEAK(B0  ) ^AKEAAX^CHAM1.C^./^^!2^CHA^'31^UPC■.A^’«AKF:AG^’^B0)  ,UAV0, 

$ AKt  AH2.ri  APB  f ,|tL  LEND,  BLLbEO,  1PS1,IPS2,»«AL-HS,BPIGN 
COENON/LflNS/nTiiX,l2UR,T2DX»Tlf.OTDR»UTUK»HE'iH*  I WOG  J , DV  A X I S t H VAX  I T » 

$ [)A  t UK  * NX  1 G J « 1 kVUl  '1  t MBP 

CuMp0N/H0LbA/HAnHC)L(e5)  , MROljH , NhOLEL  ( Gb  ) »aCL(85)  »APFAH(6n)  . 

$ AH(tO) »FHaCT (GO) 

nil^ENSlON  DTEhK(t>u)  »PTEMP(bO)  ,hTEf'iP(50) 

LOGICAL  IGM  1 t OwL U . ChAM  . CHAN2  * C HAi'^.S  , BPl GN 
C 

C TUE  UlSTANCt  (lU  INCHES)  BETWEEN  THE  CENTLR  LIKE  OF  HClfS  IN  RCU  I 

C ANL  IHE  CENTER  LliJE  OF  THE  PxE.VlGUS  ROW  OF  HULLS  WAS  iNp^T  INTC 

C XCL(l).  XCL(l)  CONTAINS  THE  UIoTANCE  OF  ThE  CEN'TEP  LII.F  OF  HOLES 
C IN'  RGW  1 FROH  IHE  BEGINNING  OF  THE  LELL  lUBE. 

C NUFE'LP  OF  FiGLfS  lij  I OW  I WAS  INPUT  INTO  NHOLES(I), 

C RADIUS  UF  BOLLS  iN  LUW  I WaS  INPUT  INTO  KAUhOL(I). 

C PSEUUO  HULLS  WILL  BE  PUT  BEFORE  AN!'  AFTER  THE  BELL  TUBE  aNU 

C treated  ThE  SANE  AS  HOLES  ON  THE  BELL  TUBE. 

C The  position  of  the  center  line  of  holes  Ii.  row  l (in  feed 

C WILL  HE  F'UT  into  aCL(I), 

c 

c tenF'ghmRily  siokh  t)iE  input  data  about  The  holf-S. 

IF(NPOwH  ,LU.  Ij)  bO  to  102 
DO  100  I = 1iNROW). 

OlENP(l)  = XCL(1)/12. 

NTEhP(l)  = i'JHOLt.S(I) 

RTENP(l)  = hADhOL( I )/12. 

10 II  COM  1 HUE 
102  CONTINUE 


pl;i  pseudo  holes  hEforl  the  hell  tube. 

RAdPS,  TF-E  RADIUS  of  THE  PSEUUP  HOLES,  IS  CALCULATED  TO  GIVE  ARCUT 

twicl  as  much  area  as  holes  on  tf,e  bell  tube. 

RAin  S = 1.0*C1ai“IB1*SORT  (DX) 

IPSl  = IHEGO 


lOf) 

c 

c 


IF  THE  bell  rUF'L  (BEGINS  BEFORE  GRID  POINT  IBEGB,  THERE  SHOULD  BE  NO 
PSEUDCHULE  AT  GRl[i  pOlNT  iBEGB. 

DO  lo5  1=1, IPSl 

XCL(I)  = FLOAr(I-l)*DX 
NhOLES(i)  = 1 
RADhUL(i)  = RaUPS 
CONTINUE 

IF  (UELRL  G.LT.UX  )RAOHOL(  1 )=KAUHUI.  ( 1 ) *SGKT  (EiELBEG/DX  ) 


SET  up  HOLES  ON  THE  BELL  TL'HL 
IFLHROWH  ,EU,  0)  60  TO  ll2 
II  = IPSl  + 1 
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IF(l\iKOWh  .tQ,  1)  GO  TO  lib 
DO  110  l = 2iiMR0l«iH 
II  = II  + 1 

XCU(Il)  = XCL(ll-l)  + DTLMP(I) 
t\*hOLES(ll)  = imTLMP(I) 

RAUhOL(Il)  = KILKP(I) 

If-(XCL<11)  + KAUHOL(Il)  ,LI.  OLLFKU)  GO  10  110 
ILAST  =1-1 
UhlTE  (fc.2i'l(j ) IwROWH,  IL  AST 
II  = II  - 1 
GO  TO  lib 
110  COTTIMIE 

112  IF(fjr<OWh  .to.  0)  11  = IPSl 

THE  Last  VaEOE  of  Ii  IS  the  OUMllER  OF  hOLhS  SO  FAR. 

SET  UP  PSEUDO  holes  aFTEK  IhF.  mELL  Ijl'  . 

115  |\jKGWh=ll 

IPS2  = lEHDO 

***  THEhE  should  uL  ho  pseudoholes  at  OKIL  Iti'jDB. 

IF  ( IjHOU  H , L O , tb)GO  TO  1*^0 

CLEAR  HOLE  AKKAY  LImTKIES  WhE.U.  TtiEKE  ARE  UO  HOLES 
(vjRl  = HKOWh  + 1 
call  LLLAR(XCL(fiKl)  »XCL(t5b)  ) 

CALL  LLEAH(r<AOhOL(l'JKl)  »KAi3hOL(Mb)  ) 
no  130  I=HRl*6b 

HHOLESd)  = 0 
130  CgIjUimUE 
C 

141)  COHTIIjUE 
C 

KLTuKH 

2010  FOhhAT (//,lbt • WAS  INPUT  AS  THE  HUMHE ( OF  ROWS  OF  HOLES  ON  THE  BEL 
IL  TUGLf  am  OijLY  '.14**  FIT  OJ  THE  TUHE’) 

F or 


L 
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SuBPOUTIMt  MFLOW 


COKhON/CHAl^/IX.  IK.  AB.Rb.IMGX  .NGK  . ii;tGf' . It'l-Ub  . iPATtI  ( GO  . 5 ) . AKfc  a6(E  ) . 
$ AhtACH.AKLAt  (faU  ) . IGlMI  T . CwLD  . L I Ai'-il . UI  AFi2  . U ISl . D1 5?  . I.)  1 S 3 I SA  . 

$ AKEAK(fc.O  ) . AKLAAA.CHAPl«ChAi"i2.tMAf“'3.  rOPG/vP.AKFAGPC  AO  ) ,GAVG. 

$ AKF.AH2.ulAPbl  .Bt.Lt:NU.BLLKLG.IPGl.ir-S2.KAuP3,BPIGr’ 

COMi-iOAi/GASl  Ul\/Ku  . KKU  . C V 0 1 C Mh 

COPMGFj/HOi.I./a/umUIIOL  (85)  . NKf -iH  . iMHoLLb  ( ttb  ) .XCL(85)  .APtAH(60)  . 

* AM(foO) .FRAC1 (GO) 

CoPrtOIM/iNPUIb/l  1 .C2.C3.CA.  To,7  f CM  , uCOrJG  . K MOP  . PH  I 0 . TF  . C A . RHGO  , 

$ PU.FO.Ug.G  rRHoP.HW.OM.UF  P.  TlGKbP.GBLOiMb.TOTM.ljTf  FPR 
COPn(<.>i/HAG/PHIbG(b0.5)  . Kh(Ji  it  ( GO  . 5 ) . HbC(b0.5).  UBG(60.b). 

1 Vt,b(b0.5).  OPtMGO.S)  . PC'KGO.ft),  TZC(bO.b), 

uOlhlG(bu).  Ut5AG(60.5).  xL'rtAKGO.b)  . boT:1D  ( fe  0 . 5 ) . UPbnT(feO.£). 

3 Pt;ibTD(bU.tD)  . KH0BTD(6f;,-  ) , h.iGTD  ( bU  . b ) . UBGTD(b0.5). 

4 VPGlL(bu,b)  . )HG(bO»5)  .b(  ri-U  G(tO)  .DOl  I'tP  ( 60 , 5 ) .PHJOP(60,3)  , 

5 Phil  1 0(60 .5  ) .1  2K  (bO)  .TBP(  btl  .*=  ) .PHl2TU(b(J.5)  . CPa2(60.5). 

b T2i\2(bU)  .12C2(»  u.b)  .PHlPG2(b0.5) 

Dlf'LUSlON  bOlM(bO) 

logical  IGgIT  . OGt'-G  . CH^Fi  1 . C 'I  Ai  i2  . Ch/\P3  . bP  1 GK 


SUBI’oUl  KmE.  hFLOi.  CALCULA  rOc  THE  hASS  OF  GAS  FLOWING  pET-JtElJ  IWC 
RA(jTAL  HOUS  IHKgCuH  HOlLS  lii  IHE  HLLL  IGi.KLK  TUBE  /'ilC  THROUGH 
PStHGO  MOLES,  I FLCG  CALcUlMLS  THi  C^'|■KItS  OF  ARRAY  COTMo  aNC  IF 
CHAF3  IS  TKLt-.  I Ht  LUTKICS  oF  AKKAY  l)(*TMBG, 

OGTMG.(I)  IS  THE  GAS  HASS  FLCWlHG  BElWLE-IJ  GkIHS  (I.l)  AmU  (1.2). 

+ DOTMG(I)  OCCOKS  IN  IHL  P*,1H  RdUTliMfb  FOh  GRIDS  WHERE  d=l  ANC 

- LtGi^  IG(I)  aHc  t'l-  J=2» 

DOTFuG(l)  IS  TP).  GAS  MASS  FL(ii.;IIIG  BETwELi.  CRlOS  (1.2)  A'.;C  (1,3) 

WHEF  KAOIAI  KOwi:  2 AiylO  3 Akc  COlMOEkEO  iGUEPEtJCEWT  ONE-L IHENS  K NAL 
SYSTlF.S. 

+ DOlMbGd)  CCCUbS  IH  THE  PATH  KGOllMtS  j Ui<  GRIDS  WHERE  u = 2 ANC 

- GOIMBG(I)  OCCURS  wHEHt  J=o. 

ARt(ATS  uGTfilo  'VI  iJ  LOIMBb  Af-L  LuEAhLE  IK  PAIN  AT  EACH  (iHL  IMEHMAL. 

logical  LMFl,CK(t;0) 

DATA  LHFLGW/bU*. FALSE,/ 

♦ I.OFiCAL  VAHiAf.Lt:  L MFLOW  ( I ) dll.  HL  SL  1 .FALSE,  ili  I r T ^ LI  Y --  WHEN 

♦ ♦♦  ('hESSURE  GlFFtRMLu  IS  SCd  lCIEuT  T'J  HbPSI  Ll'MEP  LPFLOnlI)  wIlL  HE 

Stl  .fRl'E,  Af  J I EMaIN  .IRliI.  . 

NGXl  = HGX  - 1 
10  = 1 

IKLHAl'.i)  lu  = 2 


GO  10 


1 


c 


c 


TD  = 

J = 2 


2ij  col' rriMut 

jpi  = j + 1 

CALL  CLt  A|  ll<0rr-;(J  ) ,UOTh(60)  ) 

C 

C 

c^*******^******^  *^**^*****^*4^*^i.  ******  ^***tif  if*  ^‘^*^^^^*■**m*^*’t*^H^**•*^*4l$4■**»■* 

C COI-'FliTL  oAS  r Ai..'  (LOW  HLK  Ul.rf  AI;LA 

C 

c **♦  |■■-A^1>  H.Oi-j  t Ol“;(n!  i /K  I 1 JHS  ACt  LOr  UOi'.r  FUK  CKTUS  ntYOMi  iHt.  LM  CF  fh 
C =♦♦♦  [LLl  iuttE 
C 

no  tifi  I - i*Jt-i-.uD 

c 

FK  = f C.H(  1 , J) 

F^A  = PCh(  ] ,uF'l  ) 

C 

C IF  LlNtF'.  IP  I I'Ohti  OU  POT  ( F'LCK  Uh  BijKt.  ( ] '-iG . IF  IS  STILL 

C *♦*  li'iTAC’l  CI'FL(\  » (.|x  tiUKF  rJ  I'ali . 

C 

IF(  Li'iFLOK  1 ) I UU  lU  9 

IF  ( AbS(PF'  - Fa)  .LT.  UIFFIH)  G(!  TO  t>(i 
Ll*'Fi.OW(I)  = .IFbt, 

9 IFF  ABSFPl'  ” F /' ) .LT.  O.Uu3)  liO  Tu  m(J 
C 

C*  LiETt'F.MhL  TF:L  ulhr.LTIOi'J  OF  THE.  FLOW.  IF  FK  IS  F.HFaTFH  TfA!J  PA, 

C*  GAS  FLOWS  LLl  ol  ThL  TuHl*  inritt<wISE.  11  FLowS  INTO  TFi£  TlOE, 

IFF  Ph  .LT.  PA  ) bO  To  4U 
HKK  = tii..G(l,J) 

C 

C*  PCOKP  IS  An  APPPoXIhATL  sIaiIC  PiXtSSUt’L  FOR  CHliKFn  (f'SACH  NO.  1) 

C*  FLOW.  ASSL.FL  I'COi-P  IS  NOl  l.F:;S  THAFm  PA. 

PtOhP  = li.b^*PK 

IFF  PCLi’P  .LT.  Pa  ) PU'WP  = PA 
C 

CALL  GSPRLPFHOtKRo.RiLVO.CVli.CV  ,PCOHP,HKP,TLUF.,RhO!jl.!'. 
i U«0  F I » J ) » 0 . (' « O^ii-1 . LF  , 3 ) 

CMMMl  = GMh  - 1.0 
CONSl  = 2.0/(LMM  + l.U) 

PhR  = GNr'/GriMhl 
CONS2  = 2.0/GrMrtl 

c 

C*  PSTAF  IS  SO(\.iC  STATIC  PRLSSURL 
PSTAT  = pR*C0USl**l'Pr 
C 

C*  Ff-  IS  BACH  NUFbEK.  IF  Pa  IS  IFSS  THAN  PSI,,!.  FN=1  . CTHLRWISE 


120 


nnnnn  nooon  on  n noonn  nnnn 


C*  FM  la  IMOT  1.  AND  MUSI  BL  CALCULATED. 

FM  = l.U 

IF  (Pa  .LT.  h’STAT)  toO  fO  10 

Fh  = SCKT(  ( (Ph/PA)»*(l.:'"M'll/GMF,)  - l.U)*C-0NS2  ) 
PSTAT  = Pa 
C 

lU  HSTAT  = I^Ff-’/d.O  + FM*(  M/C0M.S2 ) 


SIImCl  gas  is  FLUlMirjU  FKOh  bivlu  (l.J)  ID  (-hlli  (l.J+1),  0011“  SF-OLLD 
HL  NEGATIVE. 

****IS  FHll'G(I.P)  OKAY 

rOTFK  1 ) = -.203*GriM»PETAT*Fr  *0  A/SuH  T ( ♦ HST  AT*PH1RG  ( 1 , 2 ) ) 

GO  10  bO 


♦ THE  LOUING  KhEN  fp  IS  LEbS  THAN  PA  IS  LSStuUALlY  THE  SAFE  AS  AFOVf 
WIIH  PK  AND  PA  lliTLbChANGEn. 

*40  CONTINUt 

HAA  = HBG(ItJPl) 

PCOFiP  = 0.bS»PA 

IF(  PCOMP  .LT.  PK  ) PcOmP  = PK 

CALL  GSPKliP(K0.RRU.RtCV0tCVH.CV,PCOFiF  , HAA  » TUIIH , FtFiOiJL^  , 

$ UbO( ItJPl) »U.0«GM«tCP,3) 

GfiFiWl  = GMh  - 1.0 
CUIVISI  = 2.0/(GNM  + l.C) 

PKR  = GFiM/GFIMM 
CONS2  = 2.0/GMHHl 

FSTAT  = P/,*CUNS1**PWK 

FM  = 1.0 

IF ( PR  .LT.  PSTAT  ) GO  TO  50 

FM  = SgRT(  ( (FA/PR)** (gMMMI/gmM)  - l.U)*CONS2  ) 

PSTAT  = PR 

50  HSTmT  = HAA/ (1.0  + FM«F M/COUSS ) 

SINCE  GAS  IS  FLOWING  FROM  GRIu  (I,J+1)  TO  GRID  (I,J),DOTM  SFCULC 
BE  POSITIVE. 

♦♦♦♦IS  PHIbG(I,2)  okay 

DOTH  ( I ) = .203*GMH^PSl  /\T  + FM^C A/SORT  ( GMMMl»HSTAT^Pt(IBG  (1,2)) 

80  COMIN'UL 

IF(thAM3  .AND.  ID  .EO.  1)  Go  TO  120 


FILL  ARRAY  DOTMG 

*********************************************************************** 


I 

I 
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AVLHAGL  bAS  MASS  FLUvJ  AT  LACH  GHIU, 

POTMb(l)  = 0.b»((jl'rH(l ) + )*AKt/h<  1) 

DO  100  I = 2»I\.6X1 

DOIMIG(I)  = 0.2f)*(UOTi^i<  1-1  ) + OOTMd)  + DUTM(I)  + D0TM(I  + 1))* 
S AKLAHd) 

100  COMINUt 

nCTnlG(WGX)  = 0,5*(iJOTM(riG>i)  + DOTM  ( UGa  ) » AH  ( IK  :<  ) 


GO  10  (200»b)db 


C FILL  AKRAY  LOTMBG 


C 


120  COMINUt 

OOTfiPGd)  = 0.5*(DOTM(1)  + DOT«  ( 2 ) J ♦AREAH2 
DO  130  1=2»NGX1 

COTf'.BGd)  = 0.25*(D0Tr(I-l)  + pOThd)  + UOTMd)  + dOTM(I  + 1))* 
$ ARtAH2 

130  COMlI^lUE 

U07l‘'iBC-.(NGX)  = 0 .5*  (OOTMlNbXl ) + DUT«  ( NGX  ) ) ♦ARE  AH2 
C 

200  RETURN 
C 

END 
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SUbKOUTINE  MOTION 
COEnON/LXVALU/DXPS 

C0Pfl0N/bARkL2/B0REAiXPf  VPt  BOf<ED.  BORER  fbOKtLb,  DT2BU,DTD.<?  tit  ALP  AR 
COPhON/CLOCrt/TlME  tDELT 

COP'.MON/EJNS/DTUAtT2DRtT2DXtTt^OTDRtDTDHtHf'iB*TwOGJtDVAXl5;,n\/AXn  t 
S Oa t UK t NX t OJ t 1 WUDT t HBP 
COMhON/GASCON/HO tRROtCVOf CVH 
common/griunx/uxpkim 

COMMCN/bRAlivi/  AL<fc0t5)t  Uo(bOfb)t  DKbOtb)*  FMt 
1 XLlDT(faOt‘j)t  bOTUT(60f5)t  DITU7(60t5)t  XLOt  DOOt  PlO, 

3XLB( 100 ) tUXLlK  100 ) tXLB2(lOO ) tUXLB2( 100 ) .DOB ( 100 ) .U008 ( 100 ) . 
$OOB2(100) ,UuUb2(100) tDlB(100).UDIB(in0)tLlB2(100)tliOIR?(10C)tC102 

3 DO02.XL02.XL2(bntb)  .D0i;(b0.5)  .U12(60,b)  . XL2TDT  « bO  . 5 ) , 

4 U02TDT (60.5) . U12TDT ( 60 . b ) . FNP 
CORnON/GRAlNP/HMBl . Hl1b2 . ATPB2.  CT2.  khOP2.  PEXP2 
CO«MOw/hOCUN/CON3.CON4.CONb,  AHEAPb.ZO  .WOb.  XOH.FOI^AX  .PINER  , 

$ CF, KADPB. PP ASS. XINT. PINT. XLO. PLO. C0N6 
COWMON/P/IPR INT.MODCH.MODGR.PRII . IUEBUG( 3b) 

COMMON/BARHl/  PUI(IOO).  RHUG(IOO).  HG(IOC).  UG(IOO).  Up(lOO). 

1 PG(IOC),  IGdOO).  PMDOT(IOO).  QL(IOO).  UURAG(IOO),  FRICTdOC). 

2 OtONVdOO).  UUPdOO).  UPHKIOO).  URHOGdOO).  UNGCIOO).  UUGdCO) 

3 AMASSdoO).  AMOMdOO).  ALNEKdOO).  UAMASS(IOO),  UAROM(IOO). 
4UAENERdOO)  .PrilPdOO)  .UPHIPdOO) 

LOGICAL  PRll.IUEBUG 
LOGICAL  NaGE2 
DATA  NXGE2/. false./ 

DATA  bPRES/2116./ 
data  CSPJ/llOO,/ 

DATA  DELJ/0./ 
data  IPRI/C/ 

DATA  XjUL/77«./ 

DATA  GRAV/32.1to/ 

DETERMINE  PROPULSIVE  FORCE  ACTING  ON  THE  PROJECTILE 
F = PG(i\jX)*AHEAPB 

CALCULATE  ROTK  AND  THETA  WHICH  ARE  RELATED  To  THE  TwIST  OF  THE 
RIFLING,  THt.  TWIST  UF  THE  RIFLING  VARIES  »1TH  THE  TRAVEL  DOWN  THt 
BARREL. 


XP  - XOB  IS  THE  TRUE  OISTaR-CE  OF  THE  PROJECTILE  BOWN  ThL  BARREL, 
TRUXP  = XP  - XOB 

IFdRUXP  .LT.  a. 13317)  OYUX  = . 01042272*TkUXP  ♦ .0B97bi)3‘) 

IFdRUXP  .GE.  fc. 13317)  UYUX  = 0.174b3 

OYDX=0.1570E 

THETA  = ATaN(UYDX) 

ROTK  = 2,0*UYDX/bORED 
CS  = COS(T)iETA) 

SN  = SIN (THETA) 

COM  = CS  - CF*SN 

C0N2  = RAUHH/(PMASS/G«AV*RAdPB*CUn1  ♦ PlNER*f<OTR*(Sr  + CF*IS)) 
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OETERfllNE  FUPRiri,  THE  ENGRAVING  FORCE  AND  SLIDING  RESISTANCE 
XOB  iS  THE  initial  PROJECTILE  P0SITI0M--PLS1TI0N  PHEHE  ENGRAVING 
DEGIUS,  WOB  IS  THE  LENGTH  OF  THL  ENGRAVING  BAND, 

IFdRUXP  ,GT.  WOB)  GO  TO  50 
FDPRIM  = ZO  + CON3*TRUXP 
GO  TO  bO 

30  CONTINUE 

IFFTRUXP  .GT.  XINT)  GO  TO  40 
FUPRIh  = FUMAX  - CON4*(TRUXP  - WOB) 

GO  TO  50 

40  CONTINUE 

IK(TRUaP  ,bT.  XLO)  GO  TO  45 

FUPRIh  = PINT^AREAPB  - CO|Mfc*{TRUXP  - Xlul  ) 

GO  To  50 


45  CONTINUE 

DELC  = 0.2»DELU 
CSPu  = CSPD  + DELC 

DELP  = 1.4*8PRES*UELU/(CSPD  - 0.G*DELU) 

OPPLS  = BPRES  + UELP 
FQPkIMs ( HPKt  S+PLO ) ♦AREAPB 

50  CONTINUE 

iIPKI  = MOU(IPRI,bU) 

IF( IDLBUG(33)  .AND.  IIPRI  .EQ,  0)  WRITE ( 6 , 5000 ) IPPINT.FDPF IP 
IPRI  = IPRI  + i 

DETERMINE  PHOJECTILL  AXIAL  ACCELLRATION 
ACC  = C0N2*(F*C0N1  - FDPRlh) 

IF  there  IS  NO  MOVEMENT.  NX  AND  DXPRIM  REMAI  THE  SAME. 

♦♦**IF  ACC  IS  USED  ELSEWHERE.  MAKE  IT  NONNEGATIVE  BEFORE  RETURNING 
1F( ACC.LE.O.O.ANU. VP.LE.0.0)  RETURN 

PROJECTILE  AXIAL  VELOCITY 
VPO  = VP 

VP  = VPO  + ACC*OELT 

PROJLCTILF.  ANGULAR  VELOClTt 
OMEGA  = H0TK*VF*9,5493 

PROJECTILE  AaIAL  POSITION 
XP  = XP  + VPl)*ULLT  + ACC*C0N5 

DETERMINE  TEE  NUMBER  OF  GRlUS*  NX.  AND  THE  SIZE  OF  THE  LAST  GRIC 

NGt  Saves  the  number  of  grigs  before  projectile  motion 

NGC  s NX 

NUMBER  OF  grids  IN  DECIMAL  FORM  AFTER  PROJECTILE  MOTICM 
XNG  = XP/DX  + 1.0 
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NUMBLR  OF  TRUE  GRIDS 
NX  s XNG 


SAVE  THE  PREVIOUS  OXPRIM 
UXPS  = GXPRIP 

DXPKIH  IS  THE  WIDTH  OF  THE  LAST  GRID. 
nXFKIM  WILL  BE  .GL,  DX  AND  .LT.  2*DX. 
DXPRIM  = (XlMl,  - float  (NX  - 1)»*DX 


FILL  THE  ARRAY  VALUES  AT  GRID  NX 

GET  UPDATED  PRESSURE  AND  GaN  AT  PREVIOUS  GRID  NX 
IF(l\iXGE2)  GO  TO  60 
IF(NX  .EQ,  1)  GO  TO  100 
NXGE2  = .TRUE. 

UHG(l)  = HGd) 

UKHOG(l)  = RHOG(l) 

UUG(l)  = UG(1) 

60  CONTINUE 

CALL  GSPRoP(RO*RRu.R.CVO»CVh.CV,PG(NGC) .LHG(NGC) ,TDUF .ijHHOG ( NGC ) . 
$ DUG  ( fJGC  } 1 0 • 0 « GAPi  t cP  • 2 > 

HTE  hP=UHG ( NGC ) -UUG ( NGC ) *UUG ( NGC ) /TWOG J 
GAP=HTEMP/(HTEMP-PG(NGC)/(RH0G(NGC)*XJUL) ) 

GAPl  = GAM  - 1.0 
DELVP  = VP  - VPU 

C = SORT (GAM1*(0J*UHG(NGC)  - VP0*VPO*0 . 5 ) > 

CPRIM  = C - 0.b*GAf'!l*DELVP 

GAS  VELOCITY  AT  GRID  NX  IS  THAT  OF  THE  PROJECTILE 
UUG (NX)  = VP 

TEMP  = GAri*nELVP/(C  + CpRlM) 

NOTE  THAT  PG(NGC)  HOLDS  UPDATED  PRESSURE  AT  PREVIOUS  NX  GRID 
PRES  = PG(NGC)*(1.0  - TLMP)/(1.0  + TEMP) 

C 

TEMP  = VP*VP/TWOGJ 

UHG(NX)  = CPRlM*CFRiM/(GAMI*GJ)  + TEMP 
C 

CALL  GSPBOP(KO«RRO»R.CVO.CVh«CV,PRES.UH&(NX) . TDUM , URHOG ( NX ) . 

1 VP»0.0.6AN»CP.3) 

c 

IF (NX  .67,  NGC)  UUP (NX)  = UUP (NGC) 

IF (UUP (NX)  .GT.  UUG (NX))  UUP (NX)  = UUG ( NX ) 

C****THE  FOLLOWING  MAY  NOT  BE  NECESSARY 
UAMASS(NX)  = UAMASS(NX-l) 
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UAMOM(NX)  = UAMOMd'JX-l ) 


UAENEK(NX)  = UALNLH(NX-l) 

C 

IF(NX  .tT.  NGC)  GO  TO  90 

UHHKNX)  = 1.0  - (1.0  - UFI.l  (NX)  )*(rjXHS  - DX*0.ft)/ 

$ (DXPRIM  - ()X»u.b) 

UPH12(NX)=1.0-(1.0-UPHli:(NX)  ) * ( lJXPS-nX*0 . 5 ) / ( DXPR IP-D X#0 . 5 ) 

RO  TO  100 
C 

90  COMTINUL 

UPHI(NX)  = 1.0  - (1.0  - UPhl(NGC)  )*(r)XPS  - UX*0.5)/ 

$ (UXPRIM  + DX*0.b) 

UPHl2(NX)=1.0-(  1 .0-UPHI2(r;GC  ) )*(DXPS-QX*(j,5)/(DXPRIM+DX*0.5) 
UXLb(NX)=l)XL[j(llX-l) 

UDPb ( NX ) =Uboe ( NX-1 ) 

LlDIU(tyiX)=UL  IEKNa-I) 

LlXLb2(NX)=UXLB2(NX-l) 

UDOb2  ( NX  ) =LiU0b2  ( MX-1 ) 

UDIb2(NX)=b(JlB2((')X-l) 

IP  A NEW  GRID  MAS  bEEN  ADDED,  GRID  NX  - 1 DOES  NOT  MAV/E  THE  PPCPER 
VAKjES  except  Fur  UAMASS»  UAPOh.  AMO  UAFNLR  (IN  BNfiLYR  AREAS 
AT  GRID  NX  ARE  SET  TO  THOSE  OF  NX  - 1).  IN  THIS  CASE  NbC  IS  NCW 
MX  - 1. 

FRACT  = DX/(DX  + DXPRIM) 

URHUGdMX  - 1)  = DHhOG(NX  - 2)  + FKACT»  ( UPHOG  (MX ) - i:RH06(NX  - 2)) 

DUG (MX  - 1)  = DUG (MX  - 2)  + FRACT* ( DUG ( MX ) - DUG (MX  - ?)) 

UHr(NX  - 1)  = UHG(NX  - 2)  + FHACT*)UHG(NX)  - UHG(NX  - ?)) 

DDF (NX  - 1)  = OOP (MX  - 2)  + F H ACT* ( UUP ( MX ) - UUP(NX  - 2)) 

UPHKNX  - 1)  = UPhKMX) 

UP)a2(MX-l  )=UP)jI2(NX) 


100  CONTINUE 

IF((XP  - XOb)  .GE.  XLBAR)  PRIl  = .TRUE. 

IF  ( .NOT.PRIDRETURM 
IF(.MOT.  lDEbUG(2i))  RETURN 

IF((X)'  - XOD)  .GE.  XLBAR)  WRITE  ( b , 30  00  ) TIME 
wRnt(6,A000)  TIME 
WRITE (6,1000 ) 

PRES  = PG(NX)/mA. 

OISP  = (XP  - XGh)*12. 

WRITE (G, 20 00)  ACC, VP, D ISP, omega, FDPFIM, PRES 
lOno  FOPriAT  (///»iiUX»*IlMlERIOR  bALLISTICS  OUTPUT  *,//,6X,*PROOFCTILE4 , 

1 iox,*projectile**iox«*prgjectile*,iox,*rotatiomal*«iox« 

2 *PR0JECT1LE*,7X,*PRESSUHE  Al  BASE* , / * 4X , *ACCLLERATIOn* « 1 OX t 
5 ♦VELOCITY*«luX,*DISPLACLMFNT*»10X,*VELULlTY*»mX,*DRA6*,12X, 

4 *OF  PROJECTILE*) 

2000  FORMAT(6E20.10  ) 

3000  FORMATdHl,*  THE  PROJECTILE  HAS  GOME  UuT  OF  THE  BAPREL  AT  TIME*, 
% E14.b) 

4000  FORMAT (IHO,*  TIME  1S*,E14,6) 

5000  FORMAT(/t3X,*lPKINT  = * t HO , lOX t *FDPR IM  = *,El4,5) 

RETURN 

END 


P 
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SUBKOUTINE  IMEWoX 
C 

C SUBROUTIME  MEWbX  IS  CALLED  WHLiM  THE  BARREL  DLTS  A 21ST  CHID, 

C THE  GRID  SIZE  DX  IS  DOUBLCQ i THE  BARREL  IS  CUT  DOWN  TO  \l  GRIDS t 

C AND  THE  number  OF  CHAMBER  GRIDS  IS  HALVED. 

C A NEW  TIME  INTERVAL  IS  ALSO  CALCULATED. 

C 

COMMOIM/RARRL2/bOREA.XP,  VP,  BORED  f BORER  tbOKED8,DT2BD,DTDsatXLbAR 
COMMON/CARt  AS/ARRUW1,ARR0U2,ARR0W3,ART0T 

COMMON/CHA^l/IX,  lk,XB,RB,NGx,NGR,  IbEGB,lEfvD0,IHATH(f,O,5)  , AREAG(£  ) . 

$ AREACh,ARLAC(bO  ) , I GNI T , ONED , DI  AMI , DI AM2  , D 1 SI  , DI S?  , D IS  3 , DI  Stj  , 

$ AREAR(60) ,AHt AAX,CHAMl,ChAM2,ChAN3,TUP6AP,ARbAGP(60) ,DAVG, 

S AREAH2,DI AMhl ,bELEND,BELbEO, IPSl , IPS2 , RADPS , BPIGM 
COMMOH/CLOC  K/ TIME ,DELT 

COMMON/E  0NS/LTl)X,T2UR,T2DX,TW0TUR,DTDR,hMB,TW0GJ,DVAXIS,nVAXIT , 

$ DX,UR,NX ,GJ, 1 UODT ,HBP 

COMMON/GRAIM/  XL(fcC,5),  C0(fa0,5),  DI(bO,5)«  FM, 

1  XlTDKbO.b),  OUTDT(60,b),  DITUT(faO,5),  XLO,  DOO,  DiO. 

3XLP(100) ,UXLB(100) ,XL62(l00) ,UXLB2(100) , DOB (100) ,UPOB(lOO) , 

SD0B2( 100 ) ,UD0b2 (lUO),Dlb(lUO),UUIB(100),DlB2(100)fUDlB2(100),Ci02, 

3 ['0(j2tXL02,XL2(bO,5)  ,DO2(e0,b)  .012(60,5)  , XL2TDT  ( 60 , 5 ) , 

4 D(^2TbT(60,5)  , 012101(60,5),  FN2 
C0MM0N/GRAIN2/HMB1 , HMB2,  ATPR2,  CT2,  RHCP2,  PEXP2 
CCMMON/GRIOImX/DXPRIM 

C0MM0N/H0LEA/RADH0L(8b) , NROWH , NHDLES ( 8b ) ,XCL(85) ,AREAH(bO ) 
COMMON/lNPbTS/Cl,C2,C3,C4,TO.TIGN,(»COI\!b,RHOE’,PHIO,TF,CA,RHCO, 

$ hO,PO,UO,GT)^HOP,HW,DM,UM2,l  IGNBP,(JBCCNS,T0TM,D1FFPR 
COMMOIM/P/  IPR INT  , MOOCH , MODGR  , PR  1 1 , IDEBUb  ( 3b  ) 

COMMON/BAG/PhlbG(fcO,5) , RHOriG(60,5),  HDG(bO,5),  UBG(60,3), 

1 VBG(bO,5),  UPh(bO,b),  pCH(bO,b),  TZC(bU,5), 

2 DOTMlG(bU),  OBAG(60,5),  XDRAG(bO,5),  DOTMb(60,5),  UPBDT(60,£), 

3 PHlBTD(fcO,5) , khOOTD(60,5) , HBGTU(bO,b),  UBGTD(60,5), 

4 VBGTD(6(l,b)  ,TfiG(60,5)  ,UOTMhG(60)  , DOTMP  ( 60 , 5 ) , PHIPP  ( ftO  . 5 ) , 

5 PHIPTU(60,b)  ,TZR(b0)  , TOP  (6  0,5)  , PHI2TC*  ( 60 , 5 ) , LiPR2(60,5)  , 

6 T2R2(60) ,TZC2(bO,5) ,PHIBG2(60,5) 

COMMON/BARRL/  PHl(lUO),  RHt^GdOO),  HG(IOO),  UG(IOO),  UP(IUO), 

1 PG(IOO),  TG(IOO)'  PMDOT(IOO),  «JL(100),  UDRAG(IOO),  FRlCTdOO), 

2 QCONV(1(jO),  UUPdOO),  UPltldOO),  URHOGdOO),  UHGdOO),  ULGdCO), 

3 AMASSdOO),  AMOMdOO),  AENER(lOO),  UAMASSdOO),  UAROMdOO), 
4UAENER(100)  ,PH12(100)  ,UPHI2dOO) 

LOGICAL  IGNIT,1)NED,CHA«1,CHAM2,CHAM3,BPI6N 
LOGICAL  PRil.IDEbUG 
DATA  GRAV/32.1b/ 

C 

NX  = II 

PUT  THE  BARREL  ARRAY  VALUES  AT  THE  UDD-NUMbERED  GRIDS  InTO  GRICS 
1 THROUGH  11. 

J=1 

DO  10  1=2,11 
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J=J+?. 

UPHKl)  = UPHI(J) 
UPHI2( I )=UPHI2( J) 

UKHOG(l)  = UKH06(J) 
LUG(I)  = UUG(J) 

UHG(I)  = LlHG(J) 

UUP< I ) = UUP( J) 

UURaG( 1)=UDKAG( J) 

UXLb( I )=UXLb( J) 

U00b( 1 )=UOOB( J) 
UDIb(l)=UDIQ(J) 

UXLb2(l )=UXLB2( J) 

UD0b2( 1 )=UD0B2( J) 

UDIt>2(  I )=L)t:lR2{  J) 

UAMASS(I)  = UAPASS(J) 
UAMOMd)  = IJAMOM(J) 
UALNER(I)  = UALNER(J) 
10  CONTINUE 


RLOUtE  THE  NUMsEK  UF  GRIL'S  llM  THE  CHAl“ibEK 
PUT  THE  TOTAL  HOLE  AREA  INTO  THE  iMEW  GRIDS. 
IF(NGX  .EQ.  1)  GO  TO  50 
AREAH(l)  = AREAH(l)  + AREaP(2) 

AREAH2  = ARLAh2  + AKEAH2 
NGX  = (N6X  + l)/2 
*♦*  FOR  THE  10b  ONLt 
lENOB  = NGX 
IPATHdENOD,!)  = A 
NGPl  = NGX  + 1 


PUT  THE  CHAFiHEK 
NEW  chamber  GR 
IF (NGX  .EO.  1) 
J=1 

DO  40  I=2<NGX 
JsJ+2 
IF( ( J + 1 ) 
IF  ( ( J + 1 
DO  30  K=l, 
PFilbTD 
PHI2TDdiK 
XL2TDTd.K 
D02TDTd»K 
DI2TDT(I.R 
RHOBTD 
UBGTG( 
VBGTD( 
HBGTUl 
UPBDT ( 
XLTDT ( 
DOTDI ( 


array  VALUt  S at  THE  OOL-NUl'IBLRE  D GRIDS  INTO  THE 
IDS, 

GO  TO  50 


.LE.  NGX)  AREAHd) 

) ,GT.  NGX)  AREAHd) 


I.GR 

(I,K)  = PHIBT0(J,K) 
) = PHI2TD(J»K) 

) = XL2TDT(J»K) 

) = D02T0T(J,K) 

) = D12TDT(J,K) 
(I,K)  = RHOBTO(J.K) 
I,K)  = UBGTD(J»K) 
I,K)  = VBGTD(J.K) 
1,R)  = HB6TD(J,K) 
I,K)  = UP6DT(J,K) 
I,K)  = XLTDT(J.K) 
I»K)  = D0TDT(J»K) 


= AREAH(J)  + AREAH(J 
= AREAH(U) 


+ 


1) 
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OITDT(I,K)  = DITDT(J.K) 

PHIPTU(I.K)  = PHIPTD(J.K) 

TZCt I ,h>  = TZC( J.K) 

TZC2(I,K)  = T2C2(J.K) 

30  CONTUiUE 

APEAR(I)  = AREAR(J) 

IKCHAI'S)  AREAGP(I)  = AREAGP(J) 

AREAC(I)  = ARLAC(J) 

TZR(I)  = TZR(J) 

TZR2(I)  = TZR2(J) 

40  COMIINUE 

PUT  THE  volume  LuSl  IH  THE  BARREL  IMTO  CHAMBER  ROW  2. 
ARRUW2  = AKR0W2  + 0 . Si»DX*bORL  A 

change  DX,  BELT,  aNU  COIMSTaNTS  DEPEHUlNG  ON  THEM, 

50  CONTINUE 

DXPKIM  = UXPF<IM  + DX 
UX  = 2.0*DX 
CELT  = 2.0*UELT 
TgODT  = 2,U*nLLT 
DTDX  = DELT/GX 
T2C'X  = 0.b*UTLiX 


CONS  = 0.5*HElT*ULLT 
DTCGfei  = DELT*hOKED*bOKEU 
DT2BD  = -0.5*UELT/bOREU 
GTHhOP  = GHAV*UtLT/RHOP 


CALCULATE  IHE  CHAhbER  VOLUME.  IF  IT  HAS  CHANGED  ADJUST  THE  AREAS, 
IF(ONEU)  GO  10  150 

ARRl  = (FLOAT(NGX)  - 0 , b ) ♦tJX*AREAAX 
C 

AKK2  = AREAR( 1 )*UX*0.5 
IFCNGX  .EO.  1)  GO  TO  80 
DO  70  I = 2.NGX 
ARP2  = AKR2  + AREAR(I)»DX 
70  CONTINUE 
C 

80  CONTINUE 

IF(CHAM2)  GO  TU  lOU 
C 

ARR3  = AHEAGP(l)*DX*0.b 
IFCNGX  .EG.  1)  GO  TO  100 
DO  90  I = 2fNGX 
ARR3  = ARR3  + AREAGP(I)*DX 
90  CONTINUE 
C 

100  CONTINUE 
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C 

(.  ADJUST  ARLmAX  AIJL  ARRAY  ARLAC 

ADJUST  = ARROk'l/ARRl 

- AKtAAX*AUJUST 
DO  105  I = 

AREAC(I)  = ARLAL( 1 )*AUJUST 
105  COMINUL 


ADJUST  ARRAY  ARtAK 
ADJUST  = AHR0Ui:/AHK2 
DO  ilU  I r 1,(\)GX 
AKEAR(I)  = AHLAK{ I )*ADJUST 
110  COMINUL 

IF(LhAM2)  bO  TO  .?0U 

ADJUST  array  AKLAbP 
ADJUST  = AKROWi/ARRi 
DU  120  I = Ifi'JbX 
ARFAC’P(I)  = ARbAbP(  I )»ADJUST 
120  COFTIlNiUL 
GO  TO  200 


LOGIC  WhED  ODED  IS  TRUE 
150  COMINUL 

ART  = AKfAC(l)*UX*0.5 
IFCwGX  .Lu.  1)  bO  TO  170 
DO  160  1 = 2«l'jbX 
ART  = art  + AREaC(I)*DX 
IbO  CONTIMUE 

170  COMINUE 

ADJUST  = aRTOT/ART 
DO  100  I r IfINiGX 
AREAC(I)  = ARLAC ( 1) *A0JUST 
160  CONTINUE 


200  CONTINUE 

C FIX  AREAS  and  VOLUMES 
OVAXIS  = AREAAX*DX 
C 

IF(ONED)  ARLAC (NGPl)  = BORE  A 
AREAR(NGPl)  = BOREA 

AKEAC<NbPl)  = -lO.E+15 
IF(1DEBUG(12)  ) l•lRITE(6«^000)  IPRINTtNGX 

NAMELIST/NEWCHK/DX,UELT,TwOUT, jTDX,DTUR,T2DRf T2DX.TW0TnR. 
S DXPRIMtAKEAAXi 

S C0NbtDTDSU«DT2BD,GTRH0P,DVAXlS,DVAXIT,AREACH 
IF(IDEBUG(13) ) WRITE(6.NEwCHK) 
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2000 

?002 

2003 

2004 

2005 

2006 


IF ( .NOT 
UKITE (6 
WRITE(6 
WRITE (6 
WRITEib 
WhI fE(6 
WRITE(6 
WRITE (6 
FUPMATi 
FORMAT ( 

format ( 

FORMA! ( 
FORMAT ( 
FORMAT ( 
RETURN 
END 


. iulrug(14))  return 

t2U0b) 

«2003) 

.2002) 

.2003) 

.2004  ) 

.2003 ) 

.200b ) 


(ARLAbP(I) .l=l.NGPl) 
( AREAR( I ) . 1=1 .NGPl ) 


(AKEAC(I) .1=1. NGPl) 

(AREAG(I) .I=1.NGR) 

*1  NLWDX  CALLEU.  IPI<IK‘T  =*.lb./.»  NGX 
///.•  ARkA!  AREAR*,//) 

9X.10Fll,7./) 

///.'  ARRAY  AREAC’.//) 

///.•  ARRAY  AREAG’ .//.20X.bF11.7) 
///.•  ARRAY  AREAGP'.//) 


• . 15) 
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SUBKOUTINE  uNLl IN 


CONNON/BAKKLi'/bu(-iLA,XP,  VH,bUKEiJ  I ROHtH.bORtlJB,  01280,01  DsG.XLBAfi 
CONNOU/CHa^/IX,  IK,  AB,KB,NbX  IbLGO,  lENUB,  IPAlM(f,0 ,5)  , AKEAG  (E  ) , 

$ AKLACH,  AKEAC  (60  ) , IGNIT  , ONLU , 0 1 ANl , 01 AN2  , UlSJ  , Ol Sp  , 0 Ii!3  , C I SA  , 

$ AKt  Af<(60  ) , AKF  aAX,CHAM1  ,Ch'AN2,CHAN3,TUpGAP,  AF<EA6P(bO  ) ,DAVG  , 

$ AKLAH2,UlArBT,BLLLNU,bELbEb,  iPSl , IPSii , K AOPS , BPl  GN 
CONNOM/tQNb/n  Il,A  , I2JK,  T2DX,  IinO  1 DO  , DTOh  , UNB  , 1 WOG  J , OV  AX  I s , 0 VAX  11  , 

1  DX,DK,NX,GJ,1,jOu1,HBP 
CONMCIM/CASLi.r./KO  ,KHU,CVO,CVt( 

C ‘NNON/bKAlIJ/  XI. (bit, 5),  DC‘(bO,5),  01(60,5)  » PM, 

1 XLmi(f.0,5)  , DulOT(60,5),  01101(60,5),  XLO»  OOO,  UlO, 

3XLP( 100 ) ,UXL  D ( luO ) ,XLB2( lOO ) ,UXLB2 ( 100 ) , bob ( 100 ) ,0008 ( lUO  ) , 
10082(100) ,UD0b2(10U) ,UlB(10o),UUIb(lC0),bIH2(lC0) ,UOlB?(100) ,0102, 

3 0r0  2,XL02,XL2(6(i  ,b)  ,002(60,5)  ,012(60,5)  , aL2101  ( faO  , b ) , 

4 002101(60,5),  012101(60,5)  , Fl\;2 
CONNOI\l/GKAlM2/hNBl,  HHb2,  ATri)2,  012,  KH0P2,  Pf  XP2 
CONMON/IWPUIS/CI ,C2,C3,C4 ,10 , 1IGN,QCONS,RHOP,PIiIO ,TF ,CA,PHOO, 

$ HO  ,P0 ,00  ,blHhuP,)iU,Dri,LY;2 , 1 I GMBH  , OBCOImS  , 1 Olr-i,01FFPK 
CONNOW/Pia(“  V/BPbtMS,BPRAO(60 ,5)  , AGPNHP  , b(-iEbBP , E XPBP 
C0M'iON/BAG/Phlbl^(60,5)  , RHObG(60,5),  HBt(60,5),  UBG(G0,5), 

1 V8b(60,5),  UPri(60,5),  P0H(60,5),  T2C(60,5), 

2 0(jir'iIG(fc.O ) , LmAG(60,5),  XDRAG{6U,b),  b01NB(60,5),  UPBnT(60,5), 

3 PH:blD(60,5) , RHOBTU(60,b) , HRGTO(60,5),  UBGTn(60,5), 

4 VRG1[)(6  0,5)  ,lBb(bOtb)  ,D01NBG(60)  ,D01MP(6  0,5)  , PHI  HP  (60,5)  , 

5 PHlPlD(bOt5) ,12K(60) ,1BP(60,5) ,PH12TD(60,5) , UPb2(60,5), 

6 T2R2(60) ,1202(60,5) , PHI BG2 { 60 » 5 ) 

LOGICAL  lGMl,0fiED,LHANl,CHAN2,CHAN3,BPlGM 

C 

C THIS  SUBRObllME  PUTS  THE  CORRECT  CHAMBER  AREAS  INTO  ARRAY  AREAC, 

C PUTS  VOLUME-kwElGHTEU  AVERAGES  OF  THE  GAS  ARRAYS  INTO  THF  ARRAY 

C ELEMENTS  AT  GRID  1,  CLEARS  THE  GAS  ARRAYS  AT  THE  OTHER  GRIDS, 

C AND  SETS  NGh  TO  1. 

C 

DATA  PIDF/. 785398/ 

C 

C 

C 

C FILL  ARRAY  AREAC 

C 

1F(CHAM3)  GO  TO  30 
00  20  1 = l,lEl\iOB 

AKEAC(l)  = AREAR(l)  + AREAAX 
20  COMINUL 
GO  TO  50 
C 

30  CONTINUE 

DO  40  1=1, NGX 

AREAC(I)  = AREAR(I)  + AREAAX  + ARLA6P(I) 
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1 


4 0 COfTINUL 
C 

50  AREAC(NGX+1)  = BOKLA 


- iim.. 


**^^:t:*!^**t.^i**********************  ti4  ********************************* 

FILL  EACH  CHAMBEK  ARRAY  Al  (1,1)  WITH  THE  VOLUME-WEIGHTF.D  AVERAGE. 
OF  THE  ARRAY  VALUES  AT  I, 


calculations  for  CHAM2  TRUE 
400  CONTINUE 

DO  450  l=lfNGX 
IF  (I  .GT,  lENDU)  GO  TO  441 
TZC(I,1)  = riGN  + 1,0 

PTEMPl  = (PHIbGd.l)  + PHIrtPd.l)  - 1.0)*AREAAX 
PTENP2  = (PHlBGd,2)  + PHlBPd,2)  - 1.0)*AREAPd) 
BPRADd,!)  = bPRADdd)*(l.(j  - PHIBP  (1 , 1 ) ) ♦AREaAX  ♦ 

$ BPRADd, 2)*(1.0  - PHlBPd,2)  )»AREAR(I) 

PHIEP(1,1)  = (PHIBP(I,1)»AREAAX  + PhIBP (1 , 2 ) ♦APfAR (I ) ) / 
$ AREACd) 

TEMP  = (1.0  - PHIBPd,!  ) )»AkEAC(I) 

1F(TEMP  .LT.  0.0001)  GO  TO  410 
BPRADd,!)  = DPRAU(I,1)/TEMP 
GO  TO  420 
C 

410  CONTINUE 

BPRADd,!)  = 0.0 
C 

420  CONTiriUE 

TEMPI  = (1.0  - PH1DG(I,1) )*AKEAAX 
TEMP2  = (1.0  - PH1BG(I,2) )*AREAR(I) 

PHIBG(1,1)  = (PHIBG(I,1)*AHEAAX  + PHiBG (I , 2 ) *ARE AR < 1 ) ) / 
$ AREaC(I) 

TEMP5  = (l.U  - PHlBGd.i)  )=i.AREAC(I) 

IF(TEMP3  .LT.  0,0001)  GO  TO  430 

UPB(1,1)  = (UPU( 1,1) ♦tempi  + UPB(I,2)*TEMP2)/TEMP3 
XL(I,1)  = (XL(I,1)*TEMP1  + XL(I,2)*TLMP2)/TEMP3 

DO(I,l)  = (DO(I*l)^TEMPl  + DO(I,2)*TEMP2)/TEMP3 

Dld.l)  = (DId,l)^TEMPl  + DI(I,2)»TEHP2)/TEMP3 

GO  TO  440 

430  UPBd.l)  = 0.0 

XL (1,1)  = 0.0 

DO (1,1)  = 0.0 

DI(1,1)  = 0.0 

C 

440  CONTINUE 

PTEK1P3  = (PHlbG(I,l)  + PhlBPd.l)  - 1.0)^AREACd) 
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r,*  + »*HTLMH3  SHOULD  NLVLH  BE  0,0 

KHOSAV  = (HhObU(  I *1  )*PTthPl  -»  RHObt  ( I . 2 ) ♦PTrrP?  ) /PTtr*H3 
HBG(I,1)  = (HbG(I»l)*PTfHPl*RHUBG(l»l)  + 

$ H6G(I,;^)*PTEMP2*RH0BG(I«2)  ) / ( PI  EMP3*RhOSA  V ) 

UBbd.l)  = (UBG(Ifl)*PTE^Pl*RHOBG(l,l)  + 

$ UPG(  I ,2  )>»PTEPP2*RHUBC(  1 .2)  » / ( PTEWPS^RHOSAV  ) 

RHOBGd.l)  = RhUSAV 

CALL  GSPROP  TO  LPDAlL  PCH 
441  CONTINUE 

CALI.  GSPRoP(K0iKHO.R«CV0*CVu,CV,PCHd  ,1 » .HBGd,  1 ) ,TGUM, 

$ RhOBGdd)  .iJBGdd  ) ,U,0*GAN»CP»2) 

450  CONTINUE 

^f^i1fjHl^i*:^ti*********^*****  *******  *^  *****************************  4 *** 

CLEAR  AKr<AY  WB6  AND  OTHER  CHAMBER  ARRAYS  AT  GRIDS  NOT  ON  THE  AXIS 

1l^^:iHi*****^L****^i***ti*************^^Ht:*l^*ti*****:^*lt  *********  ****t  *********  * 

600  CONTINUE 

CALL  CLEAR(VBG(ld  ) tVBC(60»5)  ) 

CALL  CLEAK(RhObGd*2)  tKHObG(bOtb)  ) 

CALL  CLEAR  (PHlbGd»2)  tPHiBG  ( faO  » b ) ) 
call  CLEAH(HBb( 1.2) *HBG(60i5) ) 
call  clear  ( UBGd  .2  ) .UBG(60.5)  ) 

CALL  LLLAR(UPB(1,2) .UPB(6U.5)  ) 

CALL  CLEAR (PCH (1,2) .PCH (60.5) ) 

CALL  CLEAK(TRG(1.2) .TBG(60.b) ) 

CALL  CLLAh(XLd,2)  ,XL(60.5)  ) 

CALL  CLLMR(nO(l,2) .U0(60tb) ) 

CALL  CLEAR(UI (1,2) .01(60,5) ) 
call  clear (PH IBP (1.2) .PhlHP(b0.5) ) 

CALL  CLEAR (bPR AO (1.2) .BPRAD(60 ,b) ) 


C 

C 


MGP  = 1 

RETURN 

END 
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SUtr.CiniNL  t'KlhLK 
CLf.^GI'  /LALLP/H-'LE  t I 
COM"i(U\./PKi'i^LC/LOTI'-.prt»  UHRl^i 
CUl“-hOK/CLOCK/l  IrL.UtILT 

CuPMON/GSTATE/Au,  A1 . A2«  A3,  AOSl>,  AISH,  A2!sP»  A3ciP. 

$ A0l“'E',AlMP,A2hH,A3MF,A0BP,  Al'U’,A2t3P,A3bP,Wl“lSP,Wr'l“ip,UfmP, 

$ C AMh , CUPSP  , LUMMP  , CUMbP , GAPiSP , GAMMP  , &AMBP « WMOLE 
COPPiOf'./CHAM/lX  , lK,XB,Rb,.'IGV  ,I\IGK,  IHEGP,  ItPuG,  IPATH(£0,5  ) , ARL  AG  (5  ) , 
$ AI<EACH,APFAC(tO)  , I GMT  , CMt  [) , DI  A^l  ,UlA>i2  , BlSl , DI F2  , H IS3  , DISH  , 

$ AKtAR(60)  , AKfc.AAA,ChAMl,CHAi‘'.<i!,CHAP3,  I OPGAP  , AWE  AGP  < GO  ) .DA\/G, 

$ AKE  AH2,DIAl^tiT,riLLEPD,BELBEG,  1PS1,IPS2,HaIjPS,BPIG^ 
C0f'h0f'i/EQMS/C11)X,T2JP,T20X,  I kOTUR  , OTDR  , hPiU  t TWOGJ , Dy/AX  Is  , 0 VAXIT  , 

$ OX,LH,NX,GJ,l».OGT,HeP 

COPBOrj/lMPGTS/tl  ,C2,C3,CA,Tfi , T IbA: , QCONG , RhOP  , Phi  0 , TF  , C A , RHOO , 

$ HO,PO,UO,GTF<hOP,HW,DP,Oh2,TIGiMBP,QbLOrjS,TOTH,DIFFPR 
COPlhOM/PRlh\//t-PUENb,BPRAD(t.u,b)  , AGE^BP  , BGEMBP , EXPBP 
COI^hOh/BAG/PHIBC- (bO  ,5)  , RHOf'G  ( 60 , 5 ) , HbG(hO»5),  UBG(60,5)« 

1 VbG(60,fc),  UPBFfaO,5),  PCh(60,5),  T2C(60,b), 

2 DOThlG(bO),  QhAG»60,5),  XbkAG  ( 6(1 , 5 ) , t)CTi''1B  ( 60 , 5 ) , UPBnT(60,f), 

3 PHIbTD(eu,b) , RH0B1D(60,5) , HBGTU(bO,b),  UBGTD(6n,?(, 

H Vb&TD(60,5) ,TBG(60,5) ,DOThBG(60) ,U0ThP(60,5) ,PHIBP(60,5) , 

5 PHIPTD(60»b)  ,T2A(bO)  ,T8P(60,b)  ,ri-il2rU(bO,5)  , GPfi2(6Li,5), 

6 T?h2(60) ,7ZC2(bO,5) , PH1BG2 ( 60 , 5 ) 

LOGICAL  IGMT  ,Oi\/ED,CHAMl,ChAM2,CHAP3fhPIGlM 
LOGICAL  BPLeFT 

DATA  FOKTPI/H.ia('790/ 


CALCULATE  pHlMLh  OLLOCITY  aRO  MASS  FLOW  RATE 
GAMupil.3b 

UPPr'  = 158.1*StlHT  ( (GAMOP-l.tl  UtiBP) 

IP  (T  IME.L  I ,0.0004)  UOTI“ipr=4  090.0*l  IMt 

IF  C TIME.  GF.  ,0.0  004)  DOTrPM  = 2 . 66  + EXP  ( -120  0 . 0+ rifiE  ) 


BPLEFT  WILL  BECOME  TRUE  IF  ThERE  IS  SOME  BLACK  POWDER  LEFT  A^D 
THEM  PRIMER  WILL  bE  CALLED  AGAIM. 

PPLLPl  = .FALSE, 


DO 

DO 


IF 


60  J = 1,MGP 
60  I — l,^lGA 


IF  (PFlhP(I,J)  .CE.  0.59S)  GO  TO 
iKTBPd.J)  .LT.  TiGNbh)  GO  TO  bS 
IF (BPRAU( I , J)  ,LT.  0.0001)  (Hi  TO 
PPLF.FT  = .TRUE. 

(PChd.J)  .LT.  0.0)  WRITE(6,7000) 


bb 

3b 

FC)'(I«<J),I,v) 
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7000 


35 


C 

40 


C 

5b 

6.0 

C 

C 

20  00 


F0RI"IAI(1H  .♦FCh  = *iFlO. 0,212) 

li  = AGEMBP*HC)i(  I , J)  ♦♦L^FL!p  + bGfhL'H 
BUt\^L  = R*bt:LT 
VOLU  = FOKTPi^BHRADC  I .vi)**3 
BFHAUd.J)  = BHKAU(1,J)  - BL'RImL 
IF{tipHAU(l,u)  .t.T.O.O)  GO  TO  40 
UKITE  (t,2()0U  ) 1 , JiBf’HAD  ( I , J) 

BPKADd.J)  = 0.0 
PhlBP(l,J)  = 3.0 
GO  TO  5b 

CONTirMOL 

V;mEI»  = FOKlFl»HHRABd,0)**3 
DE-LTAV  = VOLLi  - VNtW 
Pl\,0V  = (1.0  - PH1BP(  1 , J)  )/V(;LC 

Tthp  = f PriV^Dt  LTAV 
C;01l*iPd,o)  = TL|1P*BP[JEI' G 
PFL  X = DX 

JKi.tO.l)  UtLX=0tLX/2.0 
CU6bF=CbMh»  +TFhP*bPbF(\)S*DLl  X»AKl,AAX 
FhlPTDdtJ)  = PHibPd.o)  + 1FPP 
60  TO  to 

PHlPTOdiO)  = PHlBPd.b) 
corn IbbL 

KtlbRI'J 

FOPhAT(//'  P/ulUb  OF  black  POWbLR  AT  blab',  13,13,*  IG*,F10.4) 

6 KfU 
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SUBROUTINE  PROPEL 

♦ THIS  SUBROUTINE  PRODUCES  ThL  ACTUAL  MOVEMENT  OF  PROPELLaAT 

COMMON/PR IMV/HPDENS. BPRaD  ( bO  1 5)  t AOENBP  t BbLNcsP , EXPBP 
COMMON/GRIUNX/DXPRIM 

COMMON/BARRL/  PHI(IOO).  RHUG(100)«  HG(lOO)t  UGdOO),  UP(lOO)t 

1 PGdOO),  rGdOU>t  PMDoTdou)«  QLdno)t  unRAGdCO).  FRICTdOC)* 

2 QLONVdOO)t  UUPduO)«  UPHI(1U0)«  URhOb(100)<  UHG(1U0)«  UUGdCO)« 

3 AMASSdOC),  AMOMdOO),  AENERdOOt  UAMASSdOO),  llAFOMdOOTt 
4UAENERdOO)  .PHl2dOU)  .UPHI2(100) 

COMMON/BARRL2/l)UREA*XP.VP.bORFO.BORER.BORE  n8,DT2BU,DTDS«.i.XLBAR 
COMhON/CHAM/lAf  lR.Xd,RB*NGX,NGRt  IBEGO«lENUBdPATH(G0.5)  »AREAG(E  ) . 

$ AREACH,ARFAC(60)  dGNIT,UNEDfDIAMl.DlAM?,  JISl«riS2.niS3tDlS‘<  , 

$ AREAR(60 ) tARtAAX.CHAMl,CHAM2.CHAM3tTUPGAP« AREAFP(60  > ,UAVGt 
$ AREAH2tDlAMHT  .BLLENO.BELEiEG,  IPSl,  1PS2,RaDPS,BPIGN 
CUMMON/CLOCK/T IMEtUELT 

COrMOlM/EQNS/LTOx,T2URtT2Dx.TWOTURU»TnR.HMb»  TWOGJ , DVAX  IS  « DVAXIT  , 

$ UX,URtNX«GJ, TwODT«HBP 
COMHON/GRaIN/  XL(bO«5)«  D0(60t5)»  DI(bO»b)»  FNt 

1  XLTDT(bO,b)t  UUTDT(60f5)i  (»I  TDT  ( bn  i b ) . XLO*  DOO«  DiO, 

SXLPdOO)  .UXLRdUO)  *XL82dO0)  .UXLB2d00)  .UOBdOO)  .UPUBdOO)  , 
$DOB^:dUO)  ,UDOD2(100)  . DlB  ( 1 0 0 ) . UUIB  (IC  0 ) « D 1 b2  ( 1 0 0 ) .UnlRPdOO)  ,C102, 

3 DUo2iXL02tXL2(bO.b) .DO2(b0,b) ,DI2<bO,b) , XL2TDT ( bO , b » , 

4 U02TUT (bOib) t D12TDT ( bO , b ) » FE 2 
COr'l-iON/GRAlN2/HI"l81,  HriB2«  ATPH2t  CT2»  RH0P2»  PEXP2 
COMMGN/INPUTS/Ll,C2»C3,C4,TO»TlGlvl,QCONS,RHOP,PHIO.TFtCA.RHOO, 

$ E:O.PO.UO»GTRHOP,HW.UM,DM2»TIGNBP,GlBCONS,TOTM,niFFPR 
COMMON/MEuPHl/PHI02dLNUC2 
COFMON/SPl  1ImT/1nHOLEC,UHULEL 

COMMON/PAG/PHIbG(bO»5) * HH0bb(bU.5)»  HBG{bO«5)»  UBGCbO.bTt 

1 VPG(bO,b),  UPB(faUtb),  PCH(bOt5)i  TZC(b0t5), 

2 UOTHlG(bO),  bBAG(feU.5)t  XORAG(bU.S)»  DuTMB(b0.5),  I'PBD T ( bO , E ) t 

3 PHlBTU(feU,5) . KHOBTD(bO«5)  , HBGTD(bO,b)i  UBGTO(b0.5), 

4 VBGTU(bO.b)  tlbGEbOfb)  .DOTMdG(bO)  » UOl  I'lf  ( bO  , 5 ) .PHIBP(bU.b)  . 

5 PKIPf0(60tOl f TZR(bO) .TbP(b0.5» »PHI2TD(b0.5) . LPB2(bO»5). 

b TZK2(faO)  dZC2(faO«5)  »PhlBG2(b0.b) 

LOGICAL  lGNITtONEU»CHAMl.CHAM2tCHAI‘'i3.HPlGN 
LOblCAL  RhOLLC iWHULLB 
C 

C ARRAY  UPE5DT  IS  CLEARED  IN  MAIN  AT  EACH  TIME  INTERVAL 
C updated  values  OF  POROSITY  (FROM  PEGKES)  WERE  PUT  INTO  ARRAY  PFIBG 

C IN  F'KPVEL.  updated  VALUES  OF  UPB  (FROM  PRf'VEL)  WERE  PUT  INTO 

C ARRAY  UPC  IN  PHPVEL.  UPDATED  GRAKm  DIMENSIONS  (FROM  REGRES)  WERE 
C PUT  into  arrays  XL«  UO*  UI  in  REGRES, 

C* 

C 

c 

c «**  there  will  not  bl  any  propellant  in  the  grids  occupied  by  the  eell 
C ♦♦♦  IGF'ITLR  Tube,  therefore  do  nut  do  PROptLLANi  MOTION  CALCULATIONS 
C ♦♦♦  FOR  THOSE  GRIDS, 

DO  10  J=l,2 
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C 


DO  10  1 = 1«MGX 
PHlBG(ItJ)  = PhlBTD(I.J) 

PHlDb2(I*J)  = PhI2T0(I*o) 

XL2(I,J)  = XL2TDT(1»J) 
ri02(l»J)  = UC2TbT(ItJ) 

IF(J.LO.l)  U02(1,J)=BPRAD(1,J) 
IF(O.Lfci,l)PHIBb2( It J)=PHIPT0( I, J) 
PHIbP(l,J)=PHIPrO{ItJ) 

DlP<ItJ)  = UlprOTd.J) 

XLdtJ)  = XLTDTdtJ) 

00(1, J)  = L-(JTuTd,J) 
nidtJ)  = LITUTdtJ) 

♦ ♦♦  LOAD  ALL  PROHLLLA^T  PoROSKY  Ii^TO  PHlb&d,J) 
PHlUGdtJ)  = PHiBGdtJ)  + PHIButiC  1 1 J)  - 1,0 
10  C0^'IINUE 


J=2 

XL(i\iGX+lt  J)=XLB(2) 

00(i4GX-d,J)=DOd(2) 

UI(NGX+lt J)=DIb(2) 

XL2(NGX-»-l,0)=XLb2(2) 

D02(NGX+1,J)=0UB2(2) 

D12(MGx+l,J)=DlB2(2) 

'’HlbG(NGX  + l , J)=PH1  (2)+PHl2(2)-1.0 
UPBUT(l'iGX  + ltwl)=OP(2) 

PHlbG2(MGX+lt J)=PhI2(2) 

J=1 

PMlBG(NGX+l t J)=PHIbG(NGX-1 t J) 

PHlbG2(l\iGx  + l,  J)=PhIBG2(NGX-l  t J) 
n02(NGX+l, J)=DU2(MGX-1, J) 

UPBuT(imGX  + 1,  J)=-UPbUT(NGX-l , J) 

IF(UPbUT(l,2)  ,LL.  0.0)  UPBDidtP)  = U.U 

SAVL  LX 

DXTLMPsOX 


DO  tiO  J=l,2 

DO  60  I = ItNOX 

ADJUST  DX  when  1=NGX,  NX=1 

IFd.LQ.NGX.AND.MX.EQ.l ) OXsDXPKIM- ( nX/2  . U ) 

INCHE  = 1 

TtSr  VELOCITY  ll-i  ITH  GRID  TO  jETCKhINE  INFO  WHICH  AnwACtNT 

GRID  THE  PKuPELLAMT  WANTS  TO  FLOW. 

IF(UPbDT(ItJ).LT.U,U)IIJCRE  = -1 

IF(UPbDT d , J) ,EQ.O.U)INCRE  s 0 

ITWO  = I + 2 ♦ INCRE 

lONE  = I + INCRL 


I 
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UPl  = UPHDT(I,J> 

IKJ.ME.l)  GO  TO  15 
AREAX=AHEAAX 
ARONE=AhEAAX 
ARTmO=AREAAX 
AREAP1=AREAAX 
ARfc AM1=AREAAx 
GO  10  16 
15  CONTINUE 

AREAR(NGX-fl  )=bOhEA 
AREAR(NGX+2)=B0kEA 
C 

1F(1  .EG.  1)  GO  TO  16 
C 

AhEAX  = AKLAR(I) 

ARONE  s AHLAR  IIONE) 

ARTwo  = AREAR  (ITWU) 

AREAPl  = AREAR  (I+l) 

AREAMl  = AREAR  (I-l) 

60  TO  16 
C 

16  AREaX  = AREAR  (I) 

AROht=  AREAR (1 ONE) 

ARTWO  = AREAR  (ITWO) 

AKEaPI  = AREAR  (I+l) 

C 

C 

16  CONTINUE 

C CAL(,ULATE  PARAhETLRS  KOK  IHL  ITH  GKIU  MASS  bALANCE. 

DMPIPI  =0.0 

DMPl  = ( 1.0  - PHlbG(l.J)  )*UI.LT*ARLAX*ABS  ( UPE^DT  ( I . vl ) ) 
OMPIMl  = 0.0 
XLU  = XL(I+1.J) 

XLU2  = XL2(I+1.J) 

XLL2  = XL2(1-1«J) 

0002  = 002(1+1. U) 

D0L2  = 002(1-1. J) 

01U2  = DI2(1+1«J) 

0IL2  = 012(1-1. J) 

XLL  r XL(l-l.J) 

DOU  = DUd  + l.J) 

DOL  = 0U(I-1.J> 

DIU  = OKI  + l.J) 

Dll.  = DKI-l.U) 

UPU  = UPD(1+1.J) 

UPL  = UPb(l-l.O) 

TZCU=T2C( I+l. J) 

T2CL=T2C(I-1.J) 

C DETERMINE  IF  THE  ITh  GRID  LIES  ON  A BOUNDARY  FOR 

C SPECIAL  treatment. 


r 

I 


I 
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IF(I.LU.l)  GU  10  4U 

IF(UPBDT(  1 + 1.  J»  .Lf.  U,U>  I'rtf’IHl  = (1.0  - HHIUG  ( I + l ,0  ) » 

1 ♦L;El.T*AkEAPl*ABS(UPdDT(  l + l.  J)  ) 

IFdJPbUK  I-l.  J)  ,GT.  0.0)  LMPIrtl  = (1.0  - PHlBR(I-i,0)) 

1 *ULLT*AKE.AI“H*AflS(UPBUr(l-l.J)  ) 

GO  TO  &0 

40  IF(1  .to.  1 .ANU.  UPbUT(i^,J)  .LT.  0.0)  Dr, PlPl  = 2.0* 

1 (1.0  - Phl()G(2,  J)  )+0ELT*AHtAPl*ABS(UPiJDT(2,J)  ) 

OhPl  = 2.0  ♦ (jr>PI 

MAStj  bALANCL  OU  UiL  ITh  GKIU  TO  OLTtkMiNE  MEW  VALUF 
Oh  POKUSITY 

SO  Phil  = PMlbG  (l.J)  + (OMPI  - DM)  IPl  - LirUMl)/  (APEAX^DA) 

*♦*  DtTEf'hI^E  Li'1Plfi,UI“i)'lP«.0MPlr'ir'i,(*KIIf"  AImU  Dr.PlS , DhPlPS . DPP  IMS  .PH  IF  , 
WH1(,H  HAVE  I'^tAMMLS  SIMLaP  10  DfIPl . UhP  IP  1 . UMP  IMl . HI  1 1 ONLY  DEAL 
WITH  hP  OR  SP  PROPELLANT  ONLY. 

r.XTKACT  PORCiSlir  Of  MP  PROPELLANT  FROh  PHIBG, 

PHllJ  = PhluG(l.J)  - PHlBoid.J)  ♦ 1.0 

VOLl  = AREAX*0X 


OETLRMNE  THE  MASSES  OF  Mp  AND  SP  PkOPElLaM  FLOWING  FROM  GRIC  I. 
LET  THE  POROSITY  (jf  PROPELLANT  FiOVlliO  Oul  OF  THE  GRID  BE  PHIOLT. 
PhlOUT  = 1.0  - UMPI/VOLI 
1F(UPB0T  ( 1 . J)  .LL.  O.U)  Gu  TO  t»4 

SINCE  PKOPELLAI'.T  IS  hOVlUb  Tu  THE  RlGhl,  MP  PROPELLANT  ROVtS 
BtFORL  SP. 

IF(PH1CL'T  .LT.  PHlld)  GO  TO  52 

ONLY  MP  MOVLD. 

UMPIS  = 0.0 
DFIFIF:  = DMPl 
60  TO  56 

ALL  MP  AND  SOME  SP  MOVED. 

52  DMPIM  = (1.0  - PHIIJ)*V0LI 
OMPiS  = DMPI  - DMPIM 
GO  TC  56 

SINCE  PROPELLANT  IS  MOVING  TO  THE  LEFT.  SP  PROPELLANT  MOVES 
BEFORE  hP. 

54  CONTINUE 

IF(PHIOUT  .LT.  PH1BG2(I.J))  GO  TO  5£ 

ONLY  SP  MOVED. 

DMPIM  = 0.0 
fjMPlS  = DMEI 
GO  TO  56 
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ALL  SP  A^D  SOhL  NP  MOVED. 

5b  nUPIS  = (1.0  - PHlbG2(I.J) )*V0LI 
DMPiM  = DMHI  - OMPIS 


OETLF<hlAE  THE  r.^SSES  OF  M»'  aNU  S>P  PKOPtLLAfMT  FLOkiMG  FP0!“  GRIC 
I ♦ 1 irjTO  GKIu  I. 

DMPXPi  IS  greatlk  Than  o.u  only  if  upbdt(i+i.j)  is  less  than  o.o« 

I.  L.  ONLY  if  SP  rOVES  FIPSl . 

5fl  COMIIIMUF 

IF(DMPIP1  .01.  u.U)  GO  ro  bO 
UMPlph  = 0.0 
DPiPlPS  = 0.0 
GO  1C  G4 

60  PHIOGT  = 1.0  - DMPIPl/CARLAPl^-DX) 

IFCPHIOUI  .LT.  PHIbG2(l+l, J) ) GO  TC  62 
ohPiPh  = 0.0 
DMPIPS  = UNPIPI 
60  10  64 

62  UMPIPS  = (1.0  - PhIGG2(I+l. J) )*(AREAPl*DX) 

DMPIPM  = [IMPIPI  - UMPIPS 


UETLRhINE  IhE  NASSES  OF  Hp  ANO  SP  PROPELLANT  FLOVglNG  FROM  GRIC 
1-1  INTO  grid  I. 

OMPIMI  IS  GREATER  THAN  0.0  ONLY  IF  UPbOT(I-l.J»  IS  GREATER  THAA 
0.0.  I.  E.  ONLY  IF  MP  MOVES  FIRST. 

64  CONTINUE 

IF(UMPIM1  .GT.  0.0)  GO  TO  66 
DMPlhM  = 0.0 
DMPIMS  = 0.0 
GO  10  6<^ 

66  PHIOUT  = 1.0  - UMP1M1/(AREAM1*DX) 

IF(Ph10UT  .LT.  (PHlHG(l-l,J)  - PHlt)G2(  I-l , J)  + 1.0))  GO  TO  6tt 
OhPIMS  = 0.0 
DMPIMI  = OMPIMI 
GC)  TO  69 

68  OMPIMM  = (1.0  - (PhIBG( I-l, J)  - PHID62 ( I -1 . J ) + 1 . 0 ) ) ♦ ( AREAMl*C X ) 
OMPIMS  = DMPIMI  - LMPIMM 

69  CONIINUE 

PhllM  = PHlIJ  + (OMPIM  - (IMPIPH  - DMPlf')M)/VOLI 
PHIIS  = PHI13G2(1.J)  + (DMPIS  - DMPIPS  - GHPIMS)/VOlI 
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IF(1  .NE.,  1)  00  TO  75  ' 

XLL  = XLU  1 

DOL  r UUU 

IJII  = DIU 

UPL  =0,0 

TZCLrT^CU 


75  IKPHII  ,0L.  U,‘#'99yy)  GU  TO  78 

UPBOTdiJ)  = ( uPbUT(  I,  J)*(  1.0  - PhIBGd.J)  )*AREAX*l)X 
1 + bPlJ»uf‘lPlPl  + UPL*l)bPIM  - L'PhliT  ( 1 1 J)*0MPI  )/ 

(d.O  - PHlI)»ARtAX*UX) 

IF(TZC(I,J)  .LT.  0.001)  TZCd.J)  = TZCL 

IF(  IZCd  , J)  .LT  , riGb)  TZCd  . J)  = (TZCd  , J)*(1.0-PHIBG(  I , J)  ) 

. »ARt  AX*DX  + TZCU*bMPiPl  + TZCL^lji'P  IM 

♦ -TZCd,  J)»U|''iPl  )/(  ( 1 .O-PHII  >*ARFAX*CX) 

IKPHIIS  ,OL.  0.99999)  00  TO  76 

DENOFi  = (1.0  - HHlIO)*VaLl 

XL21DTd,J)  = ( xLi;dtJ)*d.O  - PhlBG2  (I , J ) ) *V0L  I + XLu2*DFPIFS  + 
S XLL2*0MPli-'.S  - XL2diJ)*Dri('IS  ) /Ut  NOh 
nC2TOTd,J)  = ( D02d»J)*d,0  - PHIHG2  ( I » J ) ) ♦VCl.I  + C0U2  + UFPIFS  + 
1.  PUL2»lJMPl(“iS  - U02d«J)*0NPlS  )/OFr«IOi“i 
UI210Td,J)  = ( l)I2d,J)»d.O  - PHlBG2d,  J)  )*VaLI  + OIu2*OrPIFS  + 
$ CiL2*Lr'iPIi‘iii  - ni2d  t J)*D^PIS  )/bEN0h 

76  COMINUE 

IMPHllM  ,GL.  0.99999)  GO  TO  78 
IIENOM  = (1.0  - PHII«)*V0LI 

XLTUTdtJ)  = ( XLdtJ)*(1.0  - PHIIJ)*VUH  *■  XLU*UMPIFM  + 
li  XLL*uriPIMM  - XL(I»0)*DMPlM  )/LEN0li 
IF(WHOLEC)  D0TUT(I,J)  = ( nO(I,J)*(1.0  - PHIIJ)*V0LI  + 

$ DUbfUfiPIPM  + COL*OMPI(lM  - DO  (I , J ) *DF.P  IH  )/OE^OM 
1F(I«I))ULEC)  OITUId.J)  = ( t)I(I,J)*(1.0  - PHIIJ)*V01.I  + 

$ Diu*DhPiPn  + DiL*urpihri  - uid,j)*ohPiF  )/DENor' 

76  COMINUE 

PHlUTDd.J)  = PrillM 

PHl2TU(I«d)  = PHIIS 

HESTOKE  DX  AFTER  EACH  ITERATION 

OXsOXTEMP 

80  COMINUE 


DO  100  I = ItNGX 

PHlbGd.2)=PHlbG(  1 .2)-PHlBG2d  ,2)+1.0 
BPRArJd,l)=D02TUr(lil  ) 

U0210T(I,1)=0.0 
PHIPTO(  Itl)=PHI2TDdtl) 
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100 

c 


PHlb&(l.l)=1.0 
PHlbTD(Itl)=1.0 
PHI2TU(lil)=1.0 
PHIBb2( I,l)=1.0 
D02(I.1)=0.0 
COMINUE 

RETURN 

FNO 
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SUBKOUTINt  PROPMO 


SUbHuUTINE  PKOPr.O  CALCULATES  PROPELLANT  POTION  IN  THE  BaHPEL  , 
COPMOlM/Cl.GCK/1  IME  tOELT 

COMhON/BAF<KL2/hORLA,XP,\/P,HUKEJ.  BORER,  BOREOa,DT2RD,DTDSO.XLBAR 
CO«MON/CHA^/IX,IR,XB,RB,NGX,NbR,IBEGB,IE^JDD.IPATH(60«5)  , ARF,AG(£  ) , 

$ AHLACH,AKEAC(60) . IGNI T , ONLU , UI AMI , Ui A^2 , UlSl , D I S2 t D I S3 , L ISM , 

$ ABEAR(60) ,AKEAAX,CHAM1,CHAM2,CHAM3,TOPGAP,AREAGP(60 ) ,DAVG, 

$ AKEAH2,0lAMBT,BELENt),0ELbEG,  lPSl,IPSi;,KA[3PS,BPlGM 
C0MM0N/EQNS/DTDX,T2DR,T2DX,Tw0TDR,DTLRtHMB.TW0GJ,D\/AXls,nVAXIT  , 

$ DX,UR,f\lX,GJ,  TwODT,HBP 

COMMON/CRAIN/  XL(bO,5>i  L)0(b0i5),  DI(faO»b)»  FN, 

1  XLTDT<60,b),  LOTDT(60,5),  OlTDT  ( 60 , 5 ) » XLOt  00(1,  OIO, 

3XLB(100) ,UXLH(100) ,XLB2(100) ,UXLB2«inO) ,UOH(100) ,0000(100) , 
$DOB2(100) ,UUOB2(1UO) ,D1B(100) ,UDIB(100),DI 02(100) ,I)DIB2(100) ,C102, 

3 0002»XL02,XL2(bO,b) ,002(60,5) ,DI2(60,b) , XL2TOT ( 60 , 5 ) , 

4 D(j2TDT(6U,5)  , DI2TDT(60,b)  , FN2 
C0MM0N/6RaIN2/HMB1«  HMB2«  ATPB2,  CT2,  RH0P2*  PEXP2 
COMnOI\l/INPLlTS/Cl,C2,C3,C4  ,TO,TlGN,QCONS,HhOP,PHIO.TF.CA,RHOO, 

$ HO,PO,UO,GTRhOP,Hw,OM,DM2,TIGNBP,QBCONS,TOTM,DIFFPR 
C0MM0I\I/SPLINT/U/H0LEC,WI10LEB 

COMMON/BAG/PHIBG(60,5) , RHOaG(60,5).  HBG(60t5),  UB6(60.5), 

1 VBG(60,5),  UPB(60,5),  PCH(6U,5),  T2C(60«5), 

2 UOTMIG(60),  QBAG(60,5),  XITKAG  ( 60 , 5 ) t DOTMB(60,5),  UPB0T(60,5), 

3 PHIBTD(60,5>  ♦ RHOBTD  ( 60 , 5 ) , HBGTO(bO,5),  UBGTD  ( 60 , 5 ) •. 

4 VBGTD(60,5) ,TBG(60,5) * DOtMBG ( 60 ) , DOTMP ( 60 , 5 ) ,PHIBP(60»S) , 

5 PHIPTD(60»5) ,TZR(60) ,TBP(60,b) ,PHI2TU(60,b) , UPr2(60,5), 

6 TZR2(60) ,TZC2(60,5) ,PHIBG2(60,5) 

COMMON/BARRL/  PHl(lOO),  RHOG(IOO),  HG(lOO),  UG(IOO),  UP(IOO), 

1 PG(IOO),  TG(1U0)«  PMDOT(IOO),  (JL(IOO),  UDRAG(IOO),  FHICT(IOO). 

2 OCONV(IOO),  UUP(IOO),  UpHI(lOO),  UKHOG(IOO),  UHG(IOO),  UUG(ICO), 

3 AhASS(10(>),  AMOMdOO),  AENER(IOO),  UAMASS(IOO),  I'APOi  ( 1 00  ) , 
4UAEfgER(100)  ,PHI2(100)  ,UPHI2(loO) 

LOGICAL  lGMT,OREb,CHAMl,CHAW2«CHAM3,BPlGN 

LOGICAL  WHOLEC,WHOLEB 

DATA  PI,  PlUF  /3, 141593,  0.765390/ 

♦**  LOAL  BARREL  GRID  NO.  1 WITH  QUANTITIES  FROM  CHAMBER  GRIG  NGX 

PHI(1)=1.0-  ( AHEAR(NGX)/BOREA  )*(1.0--PHIBG(NGX,2)  ) 

PHl2(l)=1.0-(  ARLAR(  WGX)/U(jREA)*(  1.0-PH1(iG2(WGx,2)  ) 

XLP(l)  = XL(NGX,2) 

DOB(l)  = D0(N6X,2) 

DIB(l)  = DI(NGX,2) 

XLP2(1)  = XL2(:mGX,2) 

00B2(1)  = D02(NGX,2) 

DIB2(1)  = 0I2(H&X,2) 

UP(1)  = UPb(NGX,2) 

UUP(1)=UP(1) 
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C CLEAR  POROSITY  ANCi  PROP,  DIMLNSIONS  IF  THERE  IS  NOFiE  IN  THE  GRID 

IF  (PHI  (1)  .LE.0.99S»99)  GO  10  1 
PHI(l)  = 1.0 
XLBd)  = 0.0 
DOP(l)  = 0.0 
DIB(l)  = 0.0 

1 CONTIfJUE 

IF(PHI2(1).UE. 0,99999)  GO  TO  2 

PHI2(1)  = 1.0 

XLB2(1)  = 0.0 

D0B2(1)  = 0.0 

DIB2(1)  = 0.0 

2 CONTINUE 

♦ PUT  UPOATElJ  POROSITY  AND  GRAIN  DIMENSIONS  CALCULATED  IN  DIMN 
INTO  ARRAYS  PHI,  LOB,  ETC, 

DO  3 I = 2«NX 
PHI(I)  = UPHI(I) 

DOE (I)  = ULOB(I) 

DIB(I)  = UDIB(I) 

XLBd  ) = UXLB(  1 ) 

PHI2(I)  = UPHI2(I) 

C0B2(I)  = UD0B2(I) 

D1F2(I)  = UDIB2(I) 

XLB2(i)  = UXLb2,d) 

3 CONTINUE 

DO  10  1=2, NX 
PHI  (I)  = llPHid) 

PHI2d)  = UPHI2(I) 

XLR(I)  = bXLB(I) 

DOB(I)  = UUOB(l) 

DIbd)  = UUIBd) 

XLB2(I)  = UXLB2(I) 

D0P2(1)  = ULiOB2(I) 

D1B2(1)  = LUIF.2(I) 

***  LOAD  ALL  propellant  POROSITY  INTO  PHI (I) 

PHKI)  = PHId)  + PH12(I)  - 1.0 
10  CONTINUE 

PHId)=PHId)+PH12d)-1.0 

*♦*  UPDATE  propellant  VELOCITY.  PUT  UPDATED  VALUES  IN  ARRAY  UUP 
♦♦♦  USE  AN  AVERAGE  POROSITY  In  UPDATING  UP. 

♦ ♦♦  GTRHOP  IS  C;RAV  ♦ LELT  / RhOP 

DO  15  I = 2, NX 

PhlAVE  = (PHld-1)  + PHKI)  + PHKI)  + PHld+D)  ♦ 0.25 
IFd.EGl.NX)  PHIAVL  = (PHKl-l)  PHKI))  * 0.5 
IF(PH1AVE  .bE,  0.99999)  GO  TO  l5 
DELUP  = GT( HOP  * UURAG ( I ) / ( i , o - PHIAVL) 

UUPd)  = UP(I)  + DELUP 
15  CONTINUE 


T 


iF(uuH(r4X).br,VH)UUP(i)  = vp 
DO  tiO  I=2,r'.X 
INCtvE  = 1 

C TEST  VELOCITY  IN  ITH  GRID  TO  DETERMINE  INTO  WHICH  /'DOACENT 

C ♦**  GRID  THE  PI<0F'£LLANT  WANTS  TO  FLCw, 

IF (UUP( I) .LT.0.0 » INCRE  = -1 
IF(UUf^(I),EQ.O.O)  INCRE  = 0 
ITWU  = I + 2+INCRL 
lONE  = I + INCHE 
UPI  = ULiP(I) 

AREAX  = HOREA 
ARONE  = ROT  EA 
ARlwO  = BOHLA 

IF(ITWO.LT.l)  ARTWO  = AREAR(NGX-l) 

IF  ( lOfJE.EQ.  1 ) AKUNE  = AREARTNGX) 

AHEAPl  = BC)T<LA 
AREAHl  = BOREA 

IF(I-l,EQ.l)  ARLAMI  = AREARTNGX) 

C CALCULATE  THE  ADJACENT  GRID  MASS  BALANCE  PARAMETERS 

DMPIl  = (1.0  - PhKIONE))  ♦ DECT  * ARONE  * ABS  ( UUP  ( I ONE ) ) 
DMPI  = (l.U  - PTIKJ))  ♦ DELT  * AREAX  ♦ ABSTUUP(I)) 

DMPI2  = 0.0 

C ♦♦♦  DETERMINE  IF  TTiE  ADJACENT  GRID  LIES  Olvl  A BOUNDARY 
IF ( lONE.EO.NX+l ) GO  TO  25 

IF(FLOAT( INCTH:)»  UUP ( ITwO ) . LL . 0. 0 ) DMFI2  = ( 1 . 0-PHI ( ITwO ) ) 
1 ♦AEiS(UUp(  ITWO)  ) ♦ DELT*  ARTWO 
C *♦*  PERFORM  MASS  UALANCL  ON  I+l  * INCRE  GRID 

PHIll  = PHI  (lOlvE)  + (DMPIl  - nMPI2  - UMPI  » / (ARONE  * OX) 
25  IF(ABS(UP1  ) .L.T  .l.OE-7)  UPI  = 0.0 
C *♦*  CALCULATE  PARAMETERS  FOR  THE  ITH  GRID  MASS  TJALANCE. 

DMPIPI  = 0.0 

DMPI  = (l.O-PHKD)  * DELT  * AREAX  * ABSTUUPd)) 

DMPIMI  = U.U 
XLU  = XLD(I+1) 

XLU2  = XLB2(I+i) 

XLT  2 = XLEi2(  X-1  ) 

D0U2  = D0B2(I+1) 

D0L2  = DDB2(I-1) 

DIU2  = tilb2(l  + l) 

DIL2  = Dlf;2(I-l) 

XLL  = XLB(I-l) 

DOIJ  = DOB  (I  + l) 

DOL  = UOH(I-l) 

DID  = DlH{i+l) 

OIL  = DIU(l-l) 

UPU  = UP(l+i) 

UPL  = UTd-l) 

IPd.LO.NX)  GO  TO  40 

IF  (UUPd+1  ) .LI  .0.0)DMPIP1  =(1.0  - T^hl(l  + 1)) 

1 ♦ DELT  ♦ ARL*tFi  * ABS  ( UuF  ( I + 1 ) ) 

IFCUUPd-l)  .GT.0.0)U«PIM1  =(l,(j  - PHI(l-l)) 


i 


i 
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1 * DE.LT  ♦ ARtAhl  ♦ ABS<UUP(1-1)  ) 

60  10  50 

40  IFd.EU.NX  .AND,  00P(NX-1»  .GT.O.O)  = 2,0  » 

1 (I.O-PHKImX-I)  ) * DLLT  ♦ AkEAhl  » AEjS(U0P(MX-1  ) ) 

DMPi  = 2,0*  UMPI 

C *«*  MASS  bALA^CE  ON  THE  ITH  GRID  TO  DETERMINE  Nth/  VALUE 
C ***  OF  POROSITY 

50  PHIl  = PHI(I)  + (UMPl  - DMPIPI  - DMPIMl ) / ( AREAX  ♦ PX) 

C DETERhlNE  OmPIM,  DMPIPM,  OMPImM*  PHIlM*  AND  DMPIS,  OMPIPS, 

C OMPIMS,  PhllS,  vJHICH  HAVE  MEANINGS  SIMILAR  TO  DMPI , OMPlPl, 

C ***  DMPIMl, PHIl,  oriLY  DEAL  wiTH  MP  OR  SP  PROPELLANT  ONLY. 

C *** 

C extract  porosity  of  MP  propellant  from  phi 

PhllJ  = Phl(I)  - PhI2(I)  + 1.0 
VOLl  = AREAX  ♦ NX 


DETERMINE  THE  MASSES  Or  Mp  aNU  SP  PROPELLANT  FLOWING  FROM  GRIC  I. 
LET  THE  POROSITY  OF  PROPELLAnT  MOVING  OUT  OF  iHE  GFIO  BE  PHIOLl. 
PHIOUT  = l.U  - UMPl/VOLI 
IF(UUP(I).LE,0.0)  GO  TO  54 

SINCE  PROPELLANT  IS  MOVING  TO  THE  RIGHT,  MP  PROPELLANT  MOVES 
BEFORE  SP. 

IFCPHIOLT.LT.PHIIJ)  GO  TO  52 

♦♦♦  ONLY  MP  MOVED. 

DMPIS  = 0,(1 

DMPIM  = DMPI 

GO  10  50 

♦**  ALL  MP  and  some  SP  MOVED. 

52  DMPIM  = (1.0  - PHIIO)*VOLI 

DMPIS  = DMPI  - DMPIM 

GO  TO  50 

SINLE  PROPELLANT  IS  MOVING  TO  THE  LEFT,  SP  PROPELLANT  MOVES 

before  mp. 

54  CONTINUE 

IF(PHIOUT  .LT.  PHI2(I))  60  TO  56 

ONLT  SP  MOVED 

DMPIM  = 0,0 

DMPIS  = DMPI 

GO  10  56 

ALL  SP  AND  SOME  MP  MOVED. 

56  DMPIS  = (1.0  - PHI2(I))*  VOLI 
DMPIM  = DMPI  - DMPIS 
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C *♦*  DEILRMI^E  IHL  h.MSSES  OF  MP  At\!L)  SP  PROPELLANT  FLOWING  FuCM  GKIC 
C I+l  INTO  GhlO  1. 

C ♦=**  UMPiPl  IS  GKLATEK  than  0.0  ONLY  IF  UUP(I  + 1)  IS  LESS  THAN  0.0. 

C ***  I.  E.  ONLY  IF  SP  MO^/ES  FIRST. 

C 


C 

60 


C 

C *♦* 

c ♦♦♦ 
c ♦** 
c ♦♦♦ 
c 

64 


C 

60 


CONTINUE 
IF (UMPIPl 

.GT.  U.O)  GO  10 

60 

OHPIPM  = 

(i . 0 

DHPIPS  = 
GO  TO  64 

0 . 0 

PHIOUT  = 

1.0  - LNPIPI/) AHEAfa 

* 

DX) 

IF(PH10LT 

.IT.  Phl2(I+l)) 

bO 

TO 

62 

DMPipN  = 

0.0 

DMPIPS  = 
GO  TO  64 

DHFIPl 

DMPIPS  = 

(1.0  - PhI2(I+l) ) 

♦ 

ARt  API 

fjMPipN  = 

UMPlPl  - lirtPIPS 

UETLKMNE  ThK  IiaSSES  OF  Mp  AND  SP  PROPELLANT  FLOWING  FrOW  C-RIC 
I-l  INTO  GRID  1. 

DMPIMI  IS  GHEAlLH  THAN  O.U  OHLY  IF  UUP(I-l)  IS  GREATER  THAN 
0.0.  1.  E,  ONLY  IF  I'lP  l“'OVES  FIRST, 

CONTINUE 

IF<lN!PII“'1  ,GT.  O.U)  fiU  TO 
|)l''lPi|MM  = 0.0 
OMF IMS  = 0.0 
NO  in  69 

PHIOUT  = 1.0  - llrtPlMl/IAKEAhi  * DX) 

IF(FHIOUT  ,lT.  (Phl(I-l)  - PHI2(I-1)  + 1.0))  GO  TO  68 
DMPII^S  = 0.0 
DHPIM-i  = UNPIhl 
GG  TO  69 


bn  DMP1MM=(  1.0- ( Phl(l-l)  - PliI2(  I-l  )+1.0)  )*AREAhl*nX 
DHPIHS  = UNPIMI  - bhPlNM 
69  CGNTInUE 

PHI lh=PhIIO+ (GNPIN-UMPIPM-DhPIhN) /VOLl 

PHIIS  = Phl2(I)  + (DHPIS  - liMPlPS  - DNFIMS)/VOLI 

IF  ( l.tML.NX)  Gu  TO  7a 


XLO  = 

XLL 

DOU  = 

UOL 

Dll'  = 

DIE 

UPU  = 

0.0 

XL2U 

= XL2L 

D02U 

= D02L 

LI12U 

= DI2L 

C 
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C 


75 


C 


C 

76 


C 

76 


C 

80 


IF(PHII  .Gt, 0,99999)  GO  TO  76 

UUP(I)  = (UUP(l)  ♦ (1.0  - PHl(I))  ♦ ARLAX  * DX 

1 + UPU  ♦ DMPIPI  + UPL  ♦ DMPIMI  - UUP(I)  ♦ OMPII/ 

2 ((1.0  - PHII)  ♦ AREAX  * DX) 

IF(PHIIS  .GL. 0.99999)  GO  TO  76 
DEKUH  = (l.U  - PHIIS)»V0L1 

UXLb2(I)  = (XLb2(l)  ♦ (1.0  - PHI2(I))  * VOLl  + XLU2  * Dl*PIPS  4 
1 XLL2  * CMPIMS  - XLB2(I)  ♦ DMPIS)/DENOH 
UU0B2(I)  = (DOb2(l)  • (1.0  - PHI?(1))  ♦ VOLl  + D0U2  ♦ nf^PIPS  4 
1D0L2  * DHPiWS  - nOB2(I)  ♦ DhPiS  )/nEIVOh 
UDIb2(I)  = (DIB2(1)  * (1.0  - PHI2(I))  * VOLl  + DIU2  ♦ nl“PIPS  4 
1 1jIL2  ♦ nPPInS  - DIB2(I)  * DMPIS)  /DENOM 


COM  INUE 

IF(PH1IM  .GL.  0.99999)  GO  TO  78 
DER'OM  = (1.0  - PHllM)  ♦ VOLl 

UXLB(I)  = (XLD(l)  * (1.0  « PHIIO)  * VOLl  4 XLU  ♦ OMPlPrt  ♦ 
1 XLL  ♦ UMPIMM  - XLB(I)  * OMPIM  )/0EN0M 
IF(WHOLEC)  UDOB(I)  = (DOB(l)  «.  (1,0  - PHIIJ)  ♦ VOLl  4 
1 DOU  ♦ DMPIPM  + UOL  » DMPIMM  - DOB(l)  ♦ Dl^iPIM ) /OENOf* 
IF(WHOLEC)  UUIb(I)  = (DIB(I)  * (1.0  - PHllJ)  ♦ VOLl  4 
1 DIU  * DMPIPM  4 OIL  ♦ DMPIMH  - DlB(l)  ♦ DI"iPlM ) /nENOP 

CONTINUE 
UPhl(I)  = PHIIM 
UPH12(I)  = PHIIS 

CONTINUE 


DU  loo  1 = 2 .NX 

Phl(l)  = PHl(l)  - PH12(I)  4 1.0 
100  CONTINUE 
C 

RETURN 

ENC 
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SUBHOUTlNt 

C 

C SUEFiOLTlNE  fKHKlK  LAlCULATtS  hHOPELLAM  HLaT  TRANSFFP  ANL 
C TErriRATURL  KIbE  LEADING  TO  TGMillON. 

C TZC(i,J)  - bURFAEt  TlMPLRATURL  OF  PROHLLlANT  not  UNOFR  ThF 
C IF4FLUEIXE  OF  btLL  TUDE  HOLES  AT  GRI[J  (l.J) 

C TZK(l)  - SUFFmCE  TEMPERATUEiL  OF  PROFELLaNT  UNDER  THE  INFLUENCE 
C OF  1>ELL  TUf.L  ElOLES  AT  f.RlD  (I»2) 

C 

C 

LOFhOM/CEiAE  / IX  , i R , XU  , RH  , NGX  , tMGE< , Ibt  GP  . ILNuEe  i IPATH  ( FO  « fi ) t AkEAG(5  ) , 

4 are  ACH,AEst:AL  (bU  ) » I GNl  T , UNLU  i U I ANl  % bl  aN2  i 0 1 SI . P I FL" . P I S ^ . U I SA  , 

$ AKEaR(60)  t ARLAAXtLElAFiliCHAh2,CHAF;3.10PbAP«AHE  AUP(faO)  .UAVG, 

5 ARE  AII^,blAl'ibT,EEELLNQ,BELEfEG,lPSl,If^S2,RADPS,EiPlGN 
rUNhbl'i/tONb/nTuA  . 1 2UR  ,T2DX  , TWOTOR  , bTuR  . hMeE  ♦ I *JOG  J , UV  AX  I S » U VAX  IT  , 

$ Dx,LiK,NX*liJ,  IwOI  1 *FEbP 
CONr;OEv,/CLOC»\/71HE:  ,ULL1 

COFMON/GRAI I./  XL(tO»5).  GO(G0*t))t  DI((0ibl»  FN« 

1  XLiDT<feo,b)t  i.oTL  T(feOib) , nni)T(bn.5).  xloi  ton»  Pin, 

3XLP  ( 100  ) ,UXL(M  1 uO  ) ,XLB2  ( lOli  ) ,UXLM2(  100  ) ,OOB(  100  ) lUPOB  (100), 

S.t<CEV(  100  ) ,UbCijL  ( lOU  ) ,Ulb(  ICO  ) ,UUIb  ( ino  ) ,bAB2(  1(  0 ) ,lipln2(  100  ) .CI02, 
3 LC'(j2iXL02,XL2(b0,t3)  ,UC'2(6n,b)  .DI2(60,b)  , XL2TE1T  ( bO  , 5 ) , 

A Ub2  lul  (Fii  ,b)  » Di2TDT  ( 60  ,b)  1 Fl\!2 
COM'.Ol  /CRA1N2/Ei|-I(il , HMb2t  ATF'f32,  rT2,  REiOP2  f PEXP2 
COMNOEJ/E^OlE  A/KAuE'0L(6b)  , NRC  WH  , Nl  .DLLS  ( bb  ) ,XCL(6b)  ,AREAH(60)  , 

» AF.(60  E iFFACI  <b0  ) 

CbM‘iOI\i/lNPLnS/Li,L2iC3,C4,Tn,  TlGli,i4CblJS,lMiCESPHlO»TF  ,Ca,RhC0, 

5 FiO  ,F  0 ,U0  tblRHOP  ,HW,DM,Lirf2 ,71  GMDP,(JDCUNS,TUTl>'I.DirFPR 
CONi-iUN/F'/IPRir.T  , mulch, hODGH  ,PKI1 , IDEBUG  (35) 

CGf'Ii(j(M/uAG/E'Hlt-b  ( bU  ,5)  , RHLBG{60,M,  Hbb(b0»5),  llBG(60,5), 

1 VEG(b0,b),  LiPEi(G0,b),  PCH(hO,5),  T2L(b0i^>)t 

2 bOlMlG(tO),  uBAG(60«b),  XUR  AG  ( bO  , 5 ) • DcjTMEJ  ( 6 0 , 5 ) , UPbPTEbO,?). 

3 E'HiBTD(bU,b)  , RhOBI  D ( bo  , b ) , EIBGTU  ( bO  , b ) , UljGTn  ( bO  , b ) , 

‘E  VBGTU(bC,b)  , rBG(60»b)  , DOTP^iBG  ( bO  ) ,DOlMP(60,b)  ,PHIBP(bU»5)  , 
b PEUF'TD(60»b)  ,lZR(bU)  ,TlJP(bl),5)  , PH12TD  ( bO  , b ) , UPB2(60,b)  . 

b TZR2(bO)  ,T/C2(hO,E))  « PEE  1 E(G2  ( bO  , 5 ) 

rOP'MON/PROE  0/  FIRE 
Uirt.lv.SI0N  UHOLE  lbO) 

LOGICAL  E<UL2 

LOGICAL  iGlVilT  , ONEO  , CHAMl , CH  AH2  , CHAM3  , BP  I Gl  i 
LOGICAL  PRli, ILLRUG 
LOGICAL  FIRE 
UATA  F 0RTPI/12.bbb/ 

fire  remains  TRU  after  The  first  propellant  crip  IGMTES 

ARRAY  QBAG  IS  CLEAREU  IN  UpUAlE  AT  EACH  TlhE  INTERVAL. 

<,tvAG  IS  USEE)  IN  CALCULATING  UPPATEU  ENThAt  PY  IN  THE  PATH  ROUTINES. 

A TERN  MAY  l-AVt  ALREADY  BEEN  ADDED  TO  UE)A6  IN  SUBROUTINE  RPFIR. 
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IGNIT  WILL  RErAIlM  TKUE  ONLY  IF  AT  EACH  GKIU  THERE  IS  NO 

propellant  or  the  propellant  is  IGnITEU. 

IGMT  = .TRUE. 

DO  100  J=1«NGR 

ROU2  = J .EL.  2 
DO  ‘>7  I = ltNGX 

TTX  = TLG(I.J) 

TEMP  = TTX*SQRT(TTX) 

GAS  VISCOSITY 

TXMU  = L1*TENP/(TTX  + C2) 

thermal  conductivity  of  gas 

TXK  = C3*TEMP/(TTX  + C4) 


dmavg=o.o 

IF(FhIb6(l,J).GE. 0.99999. AND. PHlbG2(I»J».GE. 0.99999)  GC  TO  95 

calculate  weighted  average  up  dm  aid  UM2. 

liMAVG=(UM*(l.U-PHlBG|i.J)  ) +r)i“12*  < 1 . 0-PhXBC2  ( I . J ) ) )/ 

$(2.0-PHlBG( 1 . J)-PHIBG2( I . J) ) 
calculate  RISE  IN  TZC. 

IF(TZC(1.J) .GE.TIGN)  GO  TO  95 ' 

REYNOLDS  NUMBER 

TEMPI  = RhOBG(I»J)*UHAVG/TXMU 
RETX  = TEMPl*ABS(UbG(I.J) ) 

nusselt  number 

TEMP2a0,000613*PCH( It J)**0.556/TXK*DMAVG 
TEMP2sTEMPZ*0.5 

IF(RETX  ,LE.  l.OE-10)  TXNUS  = TEMp2 

IF(RETX  ,GT.  l.OE-10)  TXNUS  = 0 . 3*RETX**()  .62  + TEMF2 

SURFACE  AREA  OF  PROPELLANT  IN  GRID  PER  VOLUME  INCREMENT 

IF(PHlB6»ItJ)  .LT.  0.99999)  ADV  = 4.0*(1.0  - PHlBG(Itx))* 

S ( (UO(ItJ)  * FN*Ul(ItJ)  )/(nO(ltJ)’»DO(ItJ)  - FN« 

1 DI(I,J)*DI(ItJ)  ) U.5/XL(ItJ)  ) 

iFCPHlbCdtJ)  .GE.  0.99999)  ADV  s 0.0 
IF <PHIbG2( It J)  .LT.  0.99999)  ADV2  = 

$ 9.0*(1.0  - PH1DG2( 1 t J) )* (1.0/(U02< It J)  - Dl2(ItJ))  ♦ 

1 0.5/XL2(ItJ) ) 

IF(PHIbb2(ItJ)  .GE.  0.99999)  A0V2  = 0.0 

TAKE  A WEIGHTED  AVERAGE  OF  ADV  AND  ADV2. 

ADV  = «ADV*(1.0  - PHlBG(ItJ))  * ADVZ*(1.0  - PHIBG2<  I ti,  ) ) ) / 
$ (2.0  • PHIBG(ItJ)  - PHIDG2(ItJ)) 

4 

HEAT  FLUX  TO  PR0PELLANr--DTD/FT**2  - SEC 
TEMP3  = TXh/DMAVG 

QCONVA  = TXNUS*TEMP3*( TTX  - TZC(ltJ)) 

1F(QCUNVA  .LT.  0.001)  60  TO  50 
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TEhP  = &COImVA*ADV 

iFiROW.?)  TEMP  = TEMP*FRACT(  I ) 

QBAGd.j)  = 0BAG(1,J)  + TEMP 
IF  (l/Cd.J)  .6E.TIGN)  60  TO  9b 
TEMP  = UC0NS*UC0NV/A 
TEFF  = ((TZCd.J)  - T0)/TEMP)**2 
IFCTEFF  .GT.  TIME)  TEFF  = TIME 

HEAT  transfer  CALCULATION  USING  SEM-INFINITE  HEAT  CONDUCTION 
EOUATION  WITH  AN  EFFECTIVE  TIME 

TZCd,J)  = TZCdiJ)  + TEMP* 

$ (SORT (TEFF  + DELT)  - SORT (TEFF)) 

1F(TZC(I,J)  .LT.  TIGN)  GO  TO  5U 
FRACTd)  = 1.0 
FIRE  = .TRUE. 

IFdbEBUGdO))  WRITE(6.2000  ) TIME, I. J 


CALCULATE  RISE  IN  TZR 
50  CONTINUE 

IF(.N0T.  R0M2)  GO  TO  95 

IF(FRACT(I)  .GE.  0.9999)  GO  TO  9b 

iFdZRd)  .GE.  TIGN)  GO  TO  95 

UHOLEd)  = OOTMlGd)/(0.7*RHOBG(l,l)*AHd)) 


95 


RESULTANT  VELOCITY 

UGAS  s UBGd.J) 

IFd  .EQ.  1)  UGAS  = UBG(I  + 1,J)/2. 

IFd  .EQ.  NGX  .and.  NX  ,EQ.  1)  UGAS  = UBGd-l,J)/2.  + UBGd.J) 

. /?. 

SURTUH  = SQKT(UGAS*UGAS  + VBG (I , J ) «VBG ( I , J ) ) 

RETXH  = tempi*sqrtuh 

IF(RETXH  .LE.  l.OE-lO)  TXNUSH  = TEMP2 

IF(RETXH  .GI.  I.Ol-10)  TXNUSH  = 0 . 3*RETXH**0 . 6?  + TEMPS 
QCONVH  = TXNUSH*TEMP3*(TTX  - TZR (I ) ) 
lF((iCONVH  .LT.  0.001)  GU  TO  95 

ObAGd.J)  = QBAGd.J)  + QCONVH*ADV*  ( 1 . 0 - FRACT(I)) 

temp  = OCOMS*UCONVH 

TEFF  = ((TZRd)  - To)/TEMP)**2 

IF(TEFF  .GT.  TIME)  TEFF  = TIME 

TZRd)  = TZR(l)  + temp*  (SORT  (TEFF  + DEl.T)  - SORT(TEFF)) 
IF(TZRd)  .LT.  TIGN)  GO  TO  95 
IFdOEBUG(ll)  ) WRlTE(6t2001 ) TIME, I. J 
CONTINUE 

CALCULATE  HEAT  LOSS  TO  PRIMER  TUBE  AND  CHAMBER  OR  CASE  WALL. 

surface  area  per  unit  volumf.  and  representative  dimension, 

PEPGRsO.O 

IF(J.NE.l)  GO  TO  70 

IF(DMAVG.GT.O.O)  PEKGR=A . 0* ( 1 . 0-PHlBP ( 1 » J ) ) *AREAAX/OM A vG 


152 


70  COMlNUt 

If- ( GO  TO  cu 

IF  (LMAVG.Gl  .U.Of  Ptr<&K=H.U*(1.0-PH10G(I,J)  ) * AREAR  ( I ) /DMAVG 
PMAVG-H.O#f'HlMC-.<  1 ,o)*AREAR(  I )/(HEHGR  + i,  mi6*(  1. 128* 

$SOH I ( aRLAK ( i >+AkEAAX)+DIAMHT)  ) 

ADV=(bQHT(f  ORTHI* ( AkEAR ( I ) + AREA AX ) ) +SUHT ( F ORTH I*ARFAAy ) )/AREAP (I) 
A(.  COMINUL 

PnX=KHOHGU  » J)*DPiAVG/TXMU*AES(OBG(  I,  J)  ) 

Tt  hP^-TXh/L^A VG 

TLPP3=0.0U0G14*PCH(  I»vJ)**0.5Efa/TEhF'2 
TXR»jS=TLMHo 

IF  (RETX.&T.O.O)  TX(MllS=0.023*RETX**0.8  + TEhF3 
QC0l4VA=TXM.S*TE.hHi:*fTTX-T0) 

«BAG(  I,J)=lJnAG(  I,J)+QCOtMVA*ADV 
yy  coPiiii'iUE 

IF(T2L(1.J)  .LT.  TZC(2.J))  IZC(ltJ)  = TZC(2tO) 
lOP  CONTINUE 

IF (TZC(1.2) .6E.TIGW)FRAC7(1)=1.0 
C 

RETURN 

C 

2000  FORNAK/.'  TIME  =',E14.6»»  PROPELLANT  AT  Gh  ID  • . l4  « 1 4 » • IS  IGNITED* 
S ) 

2001  FOP.MAT(/t»  TIME  =*,E14.8»*  PROPELLANT  UNDER  INFLUENCE  oF  BELL  TUBE 
$ HOLES  IN  GRID* *I4»I4, * IS  IGNITED*) 

END 


153 


nnn  onnnnn 


SUDKOOTlNt  HHkVtL. 

COMiOI\i/FRINV/ljPfJElMtitHHHAl'(t  Ut-i)  . AoM  I I .f  Xl  i . 

COM-iOM/CH/vf-l/lX,  !»•  ,XU,RB,N6)^,l\;bKi  Ib»  bb,  IL^  UH  WPATM(f.O  » » M^L/iGcr:  I t 
i Afit  ACH,/>HFAC(fc,0  ) i IbNI  T .uiJLlj.blAM  , bl  A>' i; , Ulsl  « U 1 «??  « Dl  5>  ^ , D ISM  « 

$ AKFAR(60)  ,AKEAAX,CHAFpl,Ct  A^2,Cl,A^^,lb»'tAF’.ARFA6P<bO)  ,LAV&, 

$ Ai\LAH2tDlAI«Ftl  , bLLL^U* BtLFtG , IFSl , irS2  .HAUPS.hF’IGrJ 
COFfiOli/CLOCK/UHt.  .hEUT 

r0M“i0f>i/LQMS/mLX,T2UR»T2UX«Tu0rbR,LTl:KthMb»  TUOC'J,UVAXIS.n\/AXn  . 

$ UX,UR,NX«bJ,  TMO[ir,HBP 
COMHOAi/f  OhCL/  HFORCt(bO,5)  , PFOHOKbO.b) 

COFi'iOb/INPUTS/Ci  ,L2tC3,CH,To»TIbl],uCON&.KhOP,PHIO.TF  tCA.RHO0« 

S.  H0,H0.Urj,GTHhUP,Hw«DM,U|''i2,TlGUBP,QBCbriS,TOTM,l»IFf  PR 
COrnON/A'E(niPliI/PHlo2tlLNUC2 

C0^t•10^/BAG/PHIlJb(bU.5)  . RP0hG(6C.5).  HLb(b0f5)«  UBG(60,b)» 

1 VBb(60,5)«  UPtMbOfb),  PC:H(60.5)t  T2C(£0,b), 

2 UCTiiXG(feO)  , UbAb(6U,5),  XbR  AG  ( b(j . 5 ) t UOT  rIB  ( 60  1 5 ) , UPbO  T ( fc  0 , F ) , 

3 PHlUTDibUtS) t KHOnTD(60»b) » HBbTD ( bO , 5 ) , UBGTD(60tb)t 

4 VBGTbCbO.b) % fbOiGOtb) tbOlMBb(bU) t DO fhP ( bO t 5 ) » PHIBP ( 60 » 5 ) » 

b PHlPTD<6liib)  »TZHtbU)  iTBP(b0.5)  »PH12TO(bO  .5>  . 0Pn2(60.5)  t 

6 T7b2 (60 ) * TZC2(b0fb) » PHIBG2 ( bO . 5 > 

OIPLNSION  PPROP(60»5) 

DIBLNSION  FCOMPCSU) 

LOGICAL  IGMT  tOULU.CHAMltLhAM2.CHAN3tbPlGN 
DATA  GKAy//32.1b/ 

call  CLLAR(PF0KCE(1«1) «PFOrDT(60.5) ) 

CALL  CLEAR  (PPKOPd  ,1)  . PPROP  ( bO  t b ) ) 

CALL  CLEAR(FCUMP(1) ,FCOHP(bO) ) 

DO  100 

* 

SUBROUTINE  PRPVEL  CALCULATES  UPDATED  PROPELLANT  VELOCITY 
(ASSUMING  PROPELLANT  IS  FREE  TO  MOVE) 

* 

*♦*  FOP  this  subroutine  put  Tut  TOTAL  POROSiTy  OF  SP  AND  MP 
♦♦♦  PROPELLANT  INTO  ARRAY  Phlbb, 

DO  b I = 1,NGX 

PHlBG(ItJ)=PHlBG(l.J)+P|lIbG2( I I J)+PHIbP(1»J)-2.0 
AREArARLAR( 1 ) 

IF(  J.Ltl.l)  AREA  = ARt  AAX 
COMP=(PHIO-PHIBG( I t J) )/( I.O-PHIO) 

FCOMP(I)so.O 

IF (COMP.GT.O.O)FCOMP( I )=2,HM6EU6*C0MP**1.22H*AREA 
5 CONTI NUF 


♦**  there  IS  NO  SP  OR  MP  PROPELLANT  FOR  J = 1, 

C* 

DO  bo  I=1«NGX 
C 

PHiBGdt  J)=PHTbTU(l»«J)+PHl2TU(I  t J»+PH1PTU(  1 « J)-2.0 
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IKf’Hlbfj(  I«J)  .OL,  0.^9999)  XORAb  ( I , J ) = ij . u 
IF (HHlBbC 1 fJ) .G£.U. 99999)  GO  TO  5U 
C* 

C*  CALCULAllOfM  OF  FOKCL  TRANSMISSION  THKOGGh  A PACKED  MLO  QF  PROPELLAh 
C CALCULATE  TUTAl  PKtSSURE  GRAOIE  JT 
IPA  = Ir-A  me  I , J) 

GO  10  (l(J«IO«^U«lbi20)«IPA 
ID  UPUX  = (PCH(i-l,J)  - PCHClfltJ) )/(2.0*UX) 

DFCUl-iP=(FCOPP(  I-l  ) - FCOMPC  I+l ) )/ (?.0*UX) 

GO  TO 
C 

15  DPPA=(KLH( 1-1 , J)-PCH( I I J)  )/nX 

OFF  OMP= ( FCOMP ( 1 -1 ) -FCUMP ( 1 ) ) /DX 
GO  CO  iib 
C 

20  UPUX  = (i'CH(l,J)  - PCH(  1+1  , J)  )/DX 
OK  or;p=(FcoMP(  1 )-pcoMP(  i+i ) )/nx 
Pb  CONTIIv'Gl 

IFCPHlBGClto)  .GE.f  tllO)  UFCOPP=0.0 
C 

AREA=AREAH(I ) 

IFCJ.Lti.l)  AREA  = AREAAX 
PFCOrP=DFCOMP/AUE  A 

PPKOPC  It  J)=XUkAG(  X I J)+UPCIX=K  1.0-PHIBG(  It  J)  )+UFCOMK 
31  COMINUE 
C 

pKHOsHHOP 

IF(  J.Kj,  1 )FKHO=bPULt\lS 

DLLUP=  )’PROP(ltJ)*GKAV*DELT/(PRHO*(1.0-PhlbO(ItJ) ) ) 


UPDATE  UPB  For  Use;  lu  pruI'e:l 
UPBOT  ( 1 1 J ) =UPP  ( 1 t J ) +l)LLUP 

50  continue 

loo  COMIImUE 


no  i2U  J=lt2 
DCJ  120  I = itNGX 

PHibGC It J)=PHlBb( I t J)-PUl2ll»( 1 t J)-PH1P)G( 1 tU)+2.n 
PHIbG2(ltJ)  = PHl2TU(ItJ) 

120  COMINUE 
RETURN 
F ND 
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c 

c 

c 

c 

c 

c 

c 


'^'PKuul  INt  ktURLS 
COMhON/BURN/A Tkh.CT .PEXP 

COKHOU/GSTATE/Au,Al,A2.A3,kOt.Pi  AlSP,A2tlP,  A3J>P, 

S AOMPf  AlNP«A2MP,A3MPtA0BPtAlilPiA2BP.A3bPiliJl^SP»WMMP,UMBP» 

$ GAMlBtCUl“.SP,CUMnPiCUMbP,GAKSPtGAP.I”iP,bAHBPtUihOLF 
COBP.ON/ChAP/IX,  IR  *XB.RB,NGX»I\IGH»  IBEGB,  lENUB*  iPATHf  SO.b  > t ARE  AG  (E  ) t 
S ARLACH,  ARCACCGO  ) « IGNI T , ONEf)  t G I AMI . 01  APi2  • DISl , * (Jl  S3  ♦ BIS  A f 

$ AREaR(60  ) . A(,LAAX,CHAM1  ,ChAM2iGHAM3t  TOPGAP.  AREAGP(tO  ) ,DAVG, 

$ AREAH2tUlAHLll  , bLLEMU . BELBEG  , IPSl  , IPS2  . h AOPS  , BPIGM 
C0rM0rj/LQNi'/0TlJX,T2UR.T2DX  tTGO FOR. DIOR tHMBiTwOG J,DW AXIS* OVAXIT  . 

% r.XiLR.NX*bJtTUGl-l  iHBP 

COMMON/GRAllM/  XL(GU,5»«  UCt(60»5»t  DI(faO,E))»  Fb, 

1  Xl.lPT(CO,b)  , uCUjT  (CU  tb)  « nnOF(6Gt5)«  XLOf  DOO»  UIO, 

3XLP(100)  tUXLBdOO)  ,XLbP{lftO)  lUXLRgdOly)  iDoBdOO)  tUDOBdun)  , 
tIjuBPdOG  ) ,liUOI  .::dCl' ) .OlBdOO  ) ,ljUlbdOO)  .OIBPdOO)  »UBIB2d  00)  tC  102, 

3 DC02,XL02»XL2(b0,b)  ,D02(bO,b)  ,012(b0,tj)  . XL2TL)T  ( GO  , b ) , 

4 L>02TOT(bO,S)  , 012  fOT  ( 60 , 5 ) , F^2 
CPFM0l\i/GRAUV2/)ir'iBl » HMB2 , ATPD2,  CT2,  RH0P2,  PEXP2 
CuPnON/hOLt A/RAUHoLlOS) , NROVDi , BHOLES ( bb ) ,XCL(8b) ,AREAH(6n ) , 

5 AbCt.  ii),KK/yCl(bO) 

cor  hCG/ItO-UTS/Cl  ,C2,C3,C4,1  0,TlGN,GCOIMi>,RHGP,P)iI0  ,TF  ,rA  ,«MLiO, 

S H0,P0,U(M6TRHop,Hh,0M,DM2,1  IGl\iPP,QDCOBG,TOTh,niFFPR 
COMMOIN./SPL  IiMT/whuLtC . WHOLLB 

C0Pri0G/0AG/PHliiG(6ij,5)  , RHObG(60,b),  HBG(60»5),  UBr(60,5), 

1 VbG(60,b),  UPb(G0»5),  PCH(60,5).  T2C(6U,b), 

2 LOTM1G(60),  GBAt(G0,5),  XDR AG ( 60 , b ) , DOTMB ( 60 , 5 ) , UpBnT(60,E), 

3 pHIblDlGO.b)  , RhuBTD(60f  b)  , I iBGl  0 ( 60  , b ) , UBC-TD  ( 60 , 5 ) , 

4 VBGTL (bO,S) , fHG<60,5) , DOTMBG ( 60 ) , OOTP P ( 60 , b ) tPHlpP ( 60 . 5 ) , 

5 PHIPTD(6U  »b) ,T2R(60 ) »TBP(60 .5) , PHI 21 0 ( 60 , b ) , Of  R2(60»5  ) , 

6 T7K2(faO) ,1262160,5) , PHIBG2 ( 60 , 5 ) 

LOGICAL  lGMT,ONtD,CHAMl  ,CIIAP2,CH>0,3.brl6,i 
LOGICAL  WHOLEC,GliGl  KP 

LOGICAL  K0G2,)0.HT 
DAIA  )‘lGK/,7eb3v«/ 

SUbRGOlir.E  KtGRlb  calculates  UPOAILU  CHAltj  Glf'LNSIOrJS  AML  PCROSllY 
OUL  10  tjLKiauG  uF  fiG  )’ROPELL AM . PIIII  lu  1.'  USLD  IB  IHE  PAll^ 
RCUllfiLS  Afjt  IjPU/\THj  GRAlf.  1 I/fiJSlORS  ARE  uSLp  IN  PRoPFl. 


AR)'A1  GUlMb  IS  LLLAPlC  Ilx  Ul  CATF  A1  LACE'  IIML  INTf)<VAL 
L)01MH=0,0 
UUTMr=0.0 
DO  100  J=l,liGK 
R0k2  = J .LO.  2 
DO  ye  i=i,Mbx 

IF  C I2L(  I,J)  .GL.lIGi.)FRALT(I)ri.u 

IF  cr  )ab' ( 1 , J)  .GE.  o.ys'iyg  .alp.  )-bi(jG2(i,j)  .ge.  rj.yyysS) 
$ Gci  Id  yo 

p/.)a  = K0L2  .Ai.u.  FuAcKi)  .LL.  o.yyyy 
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IF  fropellant  in  the  grid  is  not  ignited,  do  not  do  the  burn 
CALCULATIONS 

IF (T2C( 1 , J) .GL.TIGN)  GO  Tu  10 

IF(PAkT  .ANU,  12R(1)  .LT.  TIGN)  GO  TO  yO 
IF (.NOT.  PART  .AND.  T2L(1,J)  .LT.  TIGn)  GO  TO  90 
10  CONTINUE 

R = ATPB*Hth( I . J)**PEXP  + CT 
F.L'RNL  = K»TwODT 


LOGIC  FOR  FiULTI-HEhFORAtLD  PROPELLANT 

IF(PHI&G( I , J)  .GE.  0.9«999)  GO  TO  AO 
UPDATE  GF<AIN  LENGTH. 

XLTDT<1.J)  = XL(I.J)  - BURNL 

SEE  IF  GRAIN  HAS  SPLIT  INTc  SPLINTERS 
♦♦♦♦♦NOTE  THAT  OLD  OINENSIONS  ARE  BEING  TESTED. 

IF(  UU(I.J)  .LL.  S.O^LUl.J)  ) 60  TO  20 


UPDAlE  other  OlhENSIONS 

DOTLT(l.J)  = 00(1. J)  - BURNL 
DllUT(I.J)  = Ol(I.J)  + BURNL 

CALCULATE  OLD  AND  NLw  VOLUMES  OF  A GRAIN. 

VOLD  = PIUF+XL( 1. J)^(  LO( I .u)^nU( I . J)  - FN#LI ( I .0 ) ♦Ul ( I . J ) ) 
VNEN  = PI(iF>XLTOT(l.J)^(  riOTDT  ( I . d ) ♦OOT  UT  ( 1 . J ) - 
$ FN^DlTuT(I.d)^01TDT{l,J)  ) 

GU  10  3U 
C 
C 

C CALCULATE  OL U AND  NEW  GRAIN  VOLUMES. 

c after  thl  grain  Has  splintlrlo.  values  for  the  choss-sec I IONAL 
c area  of  the.  particles  go  Into  array  do  anu  values  fop  peri-ieter 

C 60  INTO  array  01.  IF  ThE  LRAH'I  HAS  JUST  SPLINTERED,  AREA  AND 

C PERINETEP  HaVF  fu  bL  INIiIaLI^EU.  IF  ThL  GRAIN  HaS  JLST 
C SPLINTERED  00(1. d)  IS  APPROX  I M A T 1 1.  Y 3.^UI(l,d)  AND  IF  NOT 
C 00(1. d)  WILL  BE  LESS  THAN  Lil(l.d). 

PO  CONTINUE 

IF(  DO(l.d)  ,LE.  DKl.d)  ) 60  TO  2b 
UiHOLEC  = .FALSE. 

area  = PIOF>(UC ( 1 .d)^DO( 1 .d)  - FN^uI ( I .d)^ni (I.d) ) 

DKl.d)  = 3.m+(D0(l.d)  + FN^DI(I.vJ)) 

DO(l.d)  = AREA 
C 

2b  DLLR  = dURNL^O.5 

DOTDT(I.d)  = CO(I.J)  - 111(1. d)^DELR 
C 

IF  (DOTL'T  ( I.d)  .GE  . l.OE-7)  GO  TO  27 
l;OTDT(I.d)  = O.U 
DlTDT(I.d)  = U.U 


XLTUTd.J)  = O.U 
PhlEiTU(IivJ)  = 1.0 
GU  TO  50 
C 

?.l  CONTIIMUL 

C ASSUhE  ThE  RATIO  OF  PERIMETER  b^JOAHEU  TU  CHOSS-SEC  T J OR  AL  AREA  IS 

c constant 

DITDT( I, J)=SQRT (01 ( 1* J)*Dl ( I , J ) /DO ( I . J ) »UOTDr « I . J ) ) 

C 

C VOLUtiL  IS  LENGTH  TINES  CROsS-SECTIONAL  AREA 

VOLO  r XL ( 1 t J)*UO» I , J) 

VNEIm  = XLTDT(1.J)»00T[)T(I,J) 

C 

C 

30  CONTINUE 

IKVNEU  .LE.  U.O)  go  TO  HO 
C 

DELTAV  = VOLO  - VNEW 
C 

C CALCULATE  NUMPEF<  OF  GRAINS  FeR  GKIU/VOLUHE  OF  GRID 
PNOV  = (1.0  - PHIBG(1,J)  )/V(jLD 
IF (PARI)  PNDV  = PNUV*(1,0  - FRACT(l)) 

TEMP  = HNOV^DELTAV 
C 

C CALCULATE  GAS  HASS  GENERATED  by  BURNING  PhuPELLANT/GPlU  VOLUME 
LUTMB(l.J)  = TLMP*RhOp 
DELX=(jX 

IF(I.L0.1)OELX=UELX/2.0 
CUMnPsCUMhF+TLMP^RHOP+CLLX+ARE AR( I ) 

Dt'THH=DOTMH+COTMh  ( 1 . J ) ♦UMbl 
DUT^iM=^OT^!^1+t}OT^b(  1 ♦ J) 

C 

C UPUATE  POROSITY 

PHIHTD(l.o)  = PHiFTGd.J)  + TEMP 

IF(PART)  DOlUld.J)  = I uTDT(I.J)*d.O  - FRACT(I))  + 00(1. w)* 
S.  FRAUTd) 

IF(PARl)  UITUTd.J)  = [ ITIJl  ( l.Ud  d.(;  - FRACT(I))  + 01(1, w)* 
$ FRACrd) 

IF(PAkI)  XLlUTd.-l)  = XLTUTd,  J)»  (l.U  - FRACKD)  + XL(I,w)* 
$ FRACTd) 

GU  TO  UO 
C 

40  PHiBTUd.O)  = PHiBGd.o) 

C 

C 

C L(JGIC  FOR  SlNGLY-PEKKORATEU  PROPELLANT 

50  CONTINUE 

IF(PHIbU2(I,J)  .GL.  0.99999)  GO  Tu  9b 
K=ATPB2*PCHd.U)**PEXP2  + CT2 
PUKNL=R*TwOLiT 
C 
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I 

I 

1 


HGS  £ HG(NX) 

PGS  = Pb(NX) 

UPS  = UP (NX) 

RATIO  = DX/DXPRIM 

RHOb(IPl)  = RHOG(I)  + RATI0*(RH0G{ IPl ) - RHOG(I)) 
UG(IPl)  £ UG(1)  -t-  RAT10*(UG(  IPl)  •>  UG(I)) 

HG(IPl)  £ HG(I)  + RATIO*(HG( IPl)  - HG ( I ) ) 

PG(IPl)  £ PG(I)  + RATIO*(PG( IPl)  - PG(I)) 

UP(IPl)  £ UP(I)  + RATIO*(UP(IPl)  - UP(I)) 


AT  GRID  NX  DXPRIM  SHOULD  BE  USED  RATHER  THAN  OX,  SO  T2nX  MUST  EE 
CHANGED, 

30  CONTINUE 

IF(I  .NL.  NX)  GO  TO  40 

T2DXS  = T2DX 

T2DX  = DELT/(2,0*DXPRIM) 

C 

40  CONTINUE 
C 

FI  = PHKlhl) 

F2  £ PHI(IPl) 

F5  = PHI(I) 

G1  = RhOG(IMl) 

G2  £ RHOG(IPl) 

G5  = RHOG(I) 

El  = 61*UG(IM1) 

E2  = G2»UG(IP1) 

Eb  £ G5*UG(I) 

P1=PG(  IFIl ) 

P5=PG(I) 

P2s:PG(IPl) 

EI1£HG(IM1)-P1/G1/778,0 
EI2=HG(IP1)-P2/G2/778,0 
tI5=HG( I )-P5/G5/778,0 
Cl£Gl*EIl 
C2=G2*EI2 
C5=G5*EI5 
H1=F1*E1 
H2£F2*E2 
C 

PHIAVE  = (FI  + F5  + F5  + F2)«U.25 
RHOAVE  = (G1  + 65  + G5  + G2)*0,25 
UGAVE  = (UG(IMl)  + UG(I)  + LG(I)  + UG ( iPl ) ) *0 . 25 
IF(UP( I ) .EO.O.O.ANO.PHIAVE.NE.O. )UP( I )=UGAVE 
UPAVE=(UP(IM1 )+UP( I )+UP( I )+UP( IPl) )*0.25 
C 

UPHIT  = UPHKI) 

C 

UKHOT  = ( F5*AHASS( I )*RH0AVE 

1 - T2DX*(F2*AMASS(IP1)*E2  - F1*AMASS ( IMl ) *El ) 

2 + PMDOT(I)*AP1ASS(I)  ) / ( UPHIT*UaHASS  ( I ) ) 
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c 

c 


c 


c 


c 

c 


c 

c 

c 


c 

c 

100 

c 

c 

c 

c 


PHIRHO  = UPHIT*URH01 

6RAVA=GRAv*AFiOM(  1 )*PHI  ( I ) 

UUT  = ( Fb*AMOl“i(  I »*(El  + Eb  + Eb  + E2)*0,25 

- T2DX*(F2*AM0M(1P1)*e^*UG<IP1)  - F1*AM0M  ( IPl ) ♦E1*L'G  ( 11“  1 ) 
+ GRAVA*PG(IP1)  - GRAVA*PG(  IM  ) ) 

- DELT^FKlCTd)  + AMOI“l(I)*PI“IDOT(I)*UP(l)  )/ 
(PhIRHO»UAMOM(l ) ) 

IF(A0S(UUT)  ,LT,  0.1)  UUT  = 0,0 
IF(PHlAVE,Lr.0.99S<)  CALL  DRAG  ( UDRAG  ( I ) t , TRUE  , , 1 , 0 ) 

ETC  T=(F5*AEr\IER  ( I ) ♦ ( Cl  + 2 . 0*Cb+C2  ) /4 . 0 
$-T2UX*(h2»AEMfcR( IP1)*EI2+AENER( IPl )*P2/776,0* 

*(F2*UG( IP1)+(1.0-F2)*  UP( IPl ) )-)H*AENEK(lMl )*EI1 
$-AErjER(IMl)*Pl*(Fl*UG(IMl)  + (1.0-Fl)*  UP ( IMl ) ) /776 . 0 ) 
i-UDRAG  ( I ) ♦UP  ( 1 ) ♦[jELT^AENER  ( I ) /77e , O-OCONV  ( I ) 

S.+PMUOT(  I )^AENER(  I ) + (hMB+UP(  I )*^2/TW0GJ)  ) / ( PHIRHO^UAENER  ( I ) ) 

CALL  GSPRoP(WO»RRCiRtCVo«CVH*CV,PN  , ETDT , TDUM , URHOT , UUT , 

S0.0,GAI“l«CP»A  ) 

UHG(I  )=ETOT  + PI\i/URhOT/778.0 


UKHOG(l)  = URUOT 
UUG(I)  = UUT 

THE  SAVED  PROPERTIES  AT  GRID  NX  SHOULD  BE  PUT  BACK  INTO  THE 
appropriate,  arrays  before  I IS  SET  TO  NX, 

IF (I  .NE.  NX  - 1)  GO  TO  100 
RHOG(NX)  = KHOS 
UG(NX)  ::  UGS 
HG(NX)  = HGS 
PG(WX)  = PGS 
UP(NX)  = UPS 


CONT INUE 

REPLACE  T2DX  BY  ITS  SAVED  VALUE. 
T2DX  = T2DXS 

RETURN 

END 
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SUBKoUTINt  UPLATE 


SUBROUTIME  UPDATE  UPUATEb  THE  ARRAYS  AT  EACH  TIME  INTERVAL  AND 
PRINTS  OUTPUT. 

COMMON/DXVALU/DXPS 

COMNON/GSTATE/AU.A1.A2,A3,AOSP,A1SP,A2SP,A3SP, 

$ A0MP.A1MP.A2MP,a3MPiAoBP,  AlBP.A2BP.A3BP.WliSP,WMHP,KHBPf 
$ 6AMlB.CUNSP,CUr'lhP,CUMBP%GAMSP»GAMMP,GAMBP»  WHOLE 
COMHON/FAILEO/THICKT,PHOOP,PCOMP,BTUB,XNTUBiFAIL,MFAIL(60) « 
1THILK(60> 

COMHON/BAPRL2/DOKEA»XP,VP,BOREUtBOKER.BORE08,OT2BU,nTOSOtXLBAR 
COMHON/CHAH/IX, IR,XB,RB,NGX.NGH,lbEGB,IENDBf IPATH (60.5) « ARE AG(5 ) , 

$ AREACH,ANEAC(bO) .IGNlT.0NE0fDIAHl.0lAH2.0ISl fOIS2tDlS3fDISM . 

$ AKEAR(60)  .AKf;AAX.CHAMl.ChAM2.LHAH3.TOPGAP.AREAGP(60  ) ,CAVG. 

S AREAH2.D1AHBT.BELEND,BELBE6,IPS1,1PS2.RADPS.BPIGN 
COMHON/CLOCK/TIME.DELT’ 

CUHH0N/t0NS/DTDX,T2DR.T2DX.TW0TDR.DTDR.HMbfTW0GJ,DVAXlS.nVAXn . 

$ DX.DR.MX.GJ.TUOUT.HBP 
COHMON/GASCON/Ru.RRO.CVO.CYH 

COHHON/GASES/RnM6.RROH6,CVOM6,CVHH6.ROBP,RROBP.CVORP.CVHHP 
COHHON/GRAIN/  XL(60.5).  00(60.5).  0I(60.5)«  FN. 

1  XLTDT(60.b).  DOTDT(60.5).  D1TOT(60.5).  XlO.  OOO.  DIO, 

3XLB(100)  fUXLB(lOO)  .XLB2(l00)  .UXLB2(100)  .DUB (10  0)  .UDOBdOO)  . 
$nOB2(100)  .UOOB2(100)  « DIB  (100)  .UDIBdOO)  .UlB^dOO)  . UDIB2  (100  ) .C  1 02 . 

3 0002.XL02«XL2(60.5) .002(60,5) .DI2(G0«5) .XL2TDT(60 .5) . 

4 U02TDT (60.5) , D12TDT ( 60 , 5 ) , FN2 
C0MM0N/GRAIN2/HHB1,  HMB2.  ATPB2.  CT2,  RH0P2.  PEXP2 
COHMON/GRIUNX/UXPRIM 

COMMON/ INPUTS/C 1,C2,C3,C4, To, TIGN.QCONS.RHOP. PHI O.TF.CA.RHOO. 

$ HO,Pu,UO.GTRHOP.HW.DM.DH2,TIGImBP,QBCONS,TOTH.DIFFPR 
COMnON/MOCON/CON3,CON4,CON5,AREAPB.ZO.WOB,XOB,FDMAX,PlN£R. 

$ LF, RADPb, PMASS, XINT. PINT, XLO. PL0.C0N6 

COMMON/P/IPRINT , MOOCH .MODGR ,PRI1 , IDEBUG ( 35 ) 
COHMOf\l/PRlHV/BPUENS,BPRAO(60,5)  . AbENDP.BGENBP.EXPBP 
COHMON/BAG/PH1BG(60,5) , RHOBG(60,S).  HbG(b0.5),  UBG(60,S). 

1 VBG(60.5),  UPB(60.5),  PCH(bU,5),  TZC(bO,b), 

2 UOTMIG(60),  CiBAG(60.5),  XURAG(60,5).  DOTMB(60.5),  UPBOT(b0.5). 

3 PH1BTD(60.5)  . RHOBTO ( 60 , 6 ) , HBGTD(faO,5),  UBGTD(60,5), 

4 VBGTO(60,5) ,TBb(60.5) ,DOTM8G(60) .DOTMP(60,5) ,PHIBP(60.5) , 

5 PHIPTD(60.5) ,TZR(60) .TBP(t0.5) .Phl2TD(60,5) . UPB2(60,5). 

6 TZR2(60) ,TZC2(60,5) .PHIDG2(60,5) 

CCHMON/BARRL/  PHI(IOO).  RhOGdOO).  HG(lOO),  UG(IOO),  UP(IOO). 

1 PG(IOO).  TGdOO).  PHOOT(IOO),  QL(IOO),  UORAG(IOO).  FRiCTdOO), 

2 QCONV(IOO).  UUP(IOO).  UPHIdOO),  URHOGdOO).  UHG(IOO).  UUGdCO). 

3 AMASSdOO).  AMOM(inO),  AENER(lOO).  UAMASS(IOO),  UAMOM(lOO). 
4UAENER(100) .PHI2(100) .UPHI2(10U) 

LOGICAL  IGMT,0WED,CHAM1,CHAM2,CHAH3,BP1GN 
LOGICAL  PRll.IDEBUb 
LOGICAL  PK12.VAR 
logical  FAIL 
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DATA  DOTMBS»DOTMPS*Pf"DOTS/0,OtO.Of 0.0/ 

DATA  I2«*/0/ 

data  PTi,PT2»PT3fPT4.HTb.PTfe,PT7«PTatPT9/0.0,0.0*0.0t0.0t0.0. 
4‘0.0.0*0«0. 0.0.0/ 

c 

c 

c 

c 

C*******if************w-************-************************************** 

c update  chamber  arrays 

C****4i4i«*4i*«*****4:«**»  ************  *********  **** 

c 

IF(IDEBUG(15)  .AImD.  PRIl)  WRITE(fe.2003)  IPRINT.TIME 

IF  THE  POROSITY  CONDITION  IS  NOT  SATISFIED,  VAR  WILL  BE  SET  FALSE, 
VAR  = .TRUE. 

ITEST  = 1 
J = 1 

9 DO  100  I = l.NOX 

IF(I  ,GT.  lENDU)  J = 1 
PRI2  = .FALSE. 

IF(MOD(I tMODGR)  .EQ.  0 .OK.  1 .EG.  1 .OR.  I .EQ.  NGX) 

$ PRI2  = .TRUE, 

IFd.NE.NGX)  GO  TO  51 
IF(NX,NE.1)  GO  TO  bl 
DXFACT=lDXPS-riX*0.5)/(DXPRlM-DX»0,5) 

PHIBTDd.  JJ=1,0-(1.0-PH1BTD(  I , J)  )*LXFACT 
PHl2TDd. J)=1.U-(1.0-PHI2T[MI . J)  )*DXFACT 
51  CONTINUE 

PhlBGd.J)  = PHIBTOd.J) 

PHIBG2dtJ)  = PHI2TD(I.J) 

PHiBPd.J)  = PHlPTDd.J) 

RHOBGd.J)  = RHOBTDd.J) 

UbGdfJ)  = UBGTDd.J) 

VBGd.J)  = VBGTDd.J) 

HBGd.J)  = HBGTDd.j) 

UPbd.J)  = UPBDTd.J) 

UPDATE  TBG  AND  PCH  BY  CALLING  GSPROP  WITH  HBG  AND  RH0B6 

CALL  GSPRuP(RO.RROiR»CVO«CVh«CV,PCH(  I,  J)  ,HBGd  ,u) , 

$ TBGd  f J)  «RHOB&(  I .J)  .UBGd.J)  , VBGd.J)  .GAM.  CP.  2) 

C 

XLd.J)  = XLTDTd.J) 

DOd.J)  = UOTDTd.J) 

DId.J)  = DITDTd.J) 

XL2d.J)  = XLETUTd.O) 

D02d.J)  = U02TDTd.J) 

DI2d.J)  = DI2TDTd.J) 
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IF (PCH( I « J) .LL.Q.O.OR.HBG ( 1 , J) .LEiO.O.OR.KHOBGC I « J) .LE.0.0 ) 

«G0  TO  10 
C 

IF(.IM0T,  PRIl)  GO  TO  40 
IFC.NOT.  lUEBUG(lb))  GO  TO  40 
IF( .NOT.  PRI2)  GO  TO  40 

10  CONTINUE 

PRES  = PCH< Ii J)/144. 

IF(PCh(l«J)  .GT.  0.0  .AND.  HBG(1,J)  .GT.  0.0  .AND.  RhOBG(  I«J)  .GT 
..  0.0)  GO  TO  11 
WKlTE(£>t2016) 

WRITE(6.2003)  1PR1NT,1IME 
11  CONTINUE 

♦♦  PRINT  IF  NEGATIVE  IS  DETECTED 

white  (b,  20  01)  1 . J«PHlHG(  1 , J)  «RHOb<G(  1 1 J)  « UBG  ( I , J ) , VBG  ( I t J ) . 

1 HB&( I,J) ,TBG( 1 ,j) ,PRES,PHXbP( I .U) tUP0( T,J) ,TZC(I.w ) » 

2 0UA6(  I , J)  tXDl<A6(  I , J)  f DOTNb(ltU)  .UOTWP(  I . J)  , Ph  TUG2  ( 1 » J ) t 

3 TDP(I f J) «XL( I • J) ,DU(I« J) «ni ( 1 , J) tXL2( I t J) «n02( I« J) « 

4 Dl2(l,J)f  BPHAD(ltJ) 

40  CONTINUE 

50  CONTINUE 

POKOSITY  test 

IF(ONEU)  GO  TO  100 
IF( .not . VAK)  GO  TO  lOO 
IF(I.LE.IhEGB)GO  TO  100 

1F(I  .GT.  ILNDB)  GO  Tc  100 
IF  (PHlbPd,!)  .LT.  0.9'>9)  VAR  = .FALSE. 

100  CONTINUE 

IF  (ITLST  .LG.  2)  GO  TO  lOl 
ITEST  = 2 
J = 2 
GO  TO  9 

101  CONTINUE 

NAF.LLIST/0OT/DGTi»iIG»D0TMBG.  TZR 
IF(ONEO)  GO  TO  110 

IF(  IDLBUGdG)  .AND.  PKIl)  WRITE(6«D0T) 

110  CONTINUE 


DETERNINE  WhETHEK  THE  CHAMBER  SHOULD  BE  MADE  1-DIMENSlONAL 
4>«*  at  present*  ONEUlh  WILL  NOT  BE  CALLED, 
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C 

GO  10  IbO 
C 

IF (OWED)  GO  TO  150 
IF( .NOT.  VAH)  GO  Tu  IbO 
IF (.NOT.  IGNIT)  GO  TO  150 
ONED  = .THUt. 

CALL  ONEOIM 

lF(IUEbuG(17n  WRITE(C»?U06)  TlFiE 
IKIDEBuG(17)  ) WRITL(6.2009)  IPHINT 
IF(.N0T.  lULriOGdHH  GO  10  150 
WRn£(b«20u/) 

DO  130  1=1. WGX 

PRES  = PCml.l)/l44. 

WM  1 E (b.iiOOH)  1 ,PhIhG(  1 ,1  ) ,RHUbG(  1 ,1)  ,UBG(  T , 1 ) ,hBG(  1 , 1 ) « 
$ ThG( 1,1) ,PKES.UPB( I ,1 ) ,PhlBG2(I,l ) .XL( I ,1) ,D0( 1,1) , 

$ Cl(l.l),XL2(I.l) ,002(1.1) .012(1.1) 

130  CONTINUE 

C 

150  CONTINUE 


Ctnurn^i******************^ 
C UPDATE  BARREL  ARRAYS 


C 

IF(.NOT.  PRII)  GO  TO  170 

IF(.NOT.  IDEHUOdS))  GO  To  170 
WR1TE(G,2004 ) 

I = 1 

PRES  = PGd)/144, 

WRITE (6, 20 05)  I, PHI ( 1 ) ,RHOG( I) ,UG( I ) ,HG( I ) ,TG( I ) ,PRES,UP(I ) , 
$ QL(  1 ) .UlJRAGd  ) ,PhDOT(  I)  , aNaSS(  I ) ,aMOH(  I)  ,AENER(  1 ) , 

$PHI2( I ) .XLB( I ) .OOb( I) ,D1B( 1 ) .XLB2( 1 ) .0002(1 ) .DlB2(I) 

170  CONTINUE 
C 

IF(NX  ,LT.  2)  GO  TO  220 

00  200  1=2. NX 

CALL  GSPROP(Ho,KRG.K,CVO.CVH.CV.PU,UHb( I ) ,TU,URH06( I ) , 

«UUG(I) ,0.0«GAH,CP,2) 

IF(URHOG(  I ) .LE.O.O.OR.UHGd  ) .LE . 0. 0 .OR .PU.LE.  0 . 0 ) 

♦ WR1TE(6,2005)  I ,f HI ( I ) . RHOG ( I ) ,UG (I ) ,HG (I ) . TG (I ) , PG (I ) , 

*UP(1 ) .UL(  I ) .UDHAG(  I ) .PMDOTd  ) .ANASSd  ) , AhOh ( I ) , AENER ( I ) , 

*PH12(  I ) . XLbd)  .DOBd)  ,DIB(  I ) ,XLB2(I ) ,Uu62(T)  .DlB2(I) 

PHld)  = UPHld) 

PHI2d)=UPhI2(I) 

RHOGd)  = URHOGd) 

UG(I)  = UUGd) 

HGd)  = UHud) 

UPd)  = UUPd) 

C 
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C UPDATE  TG  AND  PG  BY  CALLING  6SPR0P  UITH  HG  AND  RHOG 

CALL  GSPHOP(HOtRRO.R«CVO.CVHtCV,P6( I ) , HG ( I ) , TG ( I ) ,hHOG( I ) , 

S UG ( 1 ) «0.U«GAK«CP«2) 

C 

XLB( I )=UXLb( I ) 

DOE(l)=UDOb(Ii 
DIB(I)=UDIB(  I) 

XLB2(I)=UXLB2(1) 

D062( 1 )=UDOB2( I ) 

01B2( 1 )=UDlB2( 1 ) 

C 

AhASS(l)  = UAMASS(I) 

ANOM(I)  = UAPOrd) 

AENER(I)  = UALNEK(I) 

IF (P&( I ) .LE.O.O.OR.riG( I ) .LF.O,O.OR.RHOG( I ) ,LE.O. 0)  GO  rO  160 
C 

IFi.NOT.  PRll)  GO  TO  200 
IF(.NOT.  iDEBUG(iy))  GO  TO  200 
160  CONTINUE 

IF(PG(I)  .GT.  0.0  .AND.  HG ( I ) .GT.  0.0  .AND.  RHOG(I)  .GT.  0.0) 

. GO  TO  181 
WRITE(G«2017) 

URITE(G.20l9) 

WRITE (to. 2016)  1 »NX. IPRINT,VP.XP,DX,OELT 
WHI1E(6t2004) 

101  PRLS  = PG(I)/144. 

WRITE(G.2005)  I,PHI( I) t RHOG ( I ) , UG ( I ) , HG ( I ) . TG ( I ) tPRESt 
$ UP( 1 ) .QL( 1 ) ,UDRA&( I ) ,P630T( I) » AMASS ( I ) »AMOM( I) ,aENER( I) , 

$PHI2( 1 ) «XLb( I ) «DOB( I ) «niB( I ) ,XLB2( I) tD0B2( I ) .DlB2(l ) 

200  CONTINUE 
220  CONTINUE 
C 

C****************  *****************************************************  4 *** 
C PRINT  OUT  CERTAIN  PRESSURES 

C1^**44i*******4  44****4************^^**44■***4*****4*******************4**** 

C 

IF( .NUT.  PRIl)  GO  TO  240 
IF(.NOT.  IDEBUG(22))  60  TO  240 
PI  = PCH(1.1)/144. 

WHITE(Gt2014)  PI 
C 

240  CONTINUE 
C 

C************** ****************** 4******4i*****4*******4***4*  4 444*4**4**4 
C COMPUTE  mass  OF  GAS  IN  THE  SYSTEM  AND  THE  MASS  OF  BlACK  POWDER 
C AND  PROPELLANT  IN  THE  SYSTEM 

C**m******************************************4*********************4*4* 

C 

C CALCULATIONS  WILL  BE  DONE  EACH  TIME  INTERVAL  AND  DE^ISIT1ES  WILL  BE 
C ADJUSTED  IF  MASS  IS  LOST, 


n n 


C LOGIC  IS  NOl  UKlTTtl'i  FOR  THt.  CASE  wHERL  CHAMl  IS  TRUE 
IF(.MOT.  ChAI“l)  GO  TO  250 
MKl1L'(Gf20l0) 

GO  TO  bOO 
C 

250  CONTINUE 

IF(ONLD)  GO  10  400 
VOL  = DVAXlS*0.‘j 

GASNAS  = (FHIBbd.l)  + PHlDG2(lil)  + PMIBP(ltl)  - 2 . 0 ) *RHOBG  ( 1 » 1 ) ♦ 
1 VOL 

PKOr'iAS={  (1.0-Phlt)G(  Itl)  )*RHOH+(1.0-PHJBG2(1  »1>  ) •RH0P2+ « 1 . 0- 
1 PhlbP(l,l) >*BPUENS)*VaL 

00  260  I=2*NGX 
VOL=DVAXIS 

IF( I .tU.NGX. ANb.NX.LQ. 1 J VOL=( VOL*( ( UXPRiM-DX ) /2, 0 ) /OX ) 
VOLt}PO=VOL*OPDEi\IS 

GASMAS  = GAShAS  + (PHIBG(I,1)  + PHl8G2(Id»  + PHiBPdtl)  - 2,0 
1 )*KHOOG( I»1)*V0L 

PR0MAS=PR0MAS+( (l.C-PHlb6(l,l) ) ♦RHOP+ ( 1 . 0-PHIBG2 ( I , 1 ) ) ♦RH0P2 ) ♦ V 0L+ 
$ (1.0  - PHlbP(Itl) )*VOLaPO 

260  CONTINUE 
C 

VOL  s AREAKdX'OX^O.B 

GASNAS  = GASMAS  + (PHIfaG(l,2)  + PHlBG2d,2)  ♦ PHIBPd.2»  - 2.0 
1 )*KH0B6d,2)*V0L 

PR0MAS=FROWaS+ ( d.0-PHlBGd,2)  ) ♦RHOP+ (1 , 0-PHIBG2 (1 , 2 ) )*HH0P2  + 

$ (1,0  - PHIBP(1.2) )*BPOENS  )*VOL 

DO  270  I=2iNGX 

VOL  = AREARdj^OX 

IF(1,E0.NGX.ANU.NX.EQ.1)V0L=(  V0L*(  ( DXPH iFi-DX  ) /2 . 0 ) /OX  ) 

GAShAS  = GASrtAS  + (PH1BG(1.2)  + PHIBG2(I»2>  + PHIBP(I»2)  • 2,0 
1 )»RHObG( I,2)»V0L 

PRCMAS=PROhAS+( ( 1 , 0-PHlQG ( 1 , 2 ) ) »RHOP+ ( 1 , 0-PHIBG2 ( I , 2 ) )*RH0P2+ 

S (1.0  - PHlBP(It2)  )*flP[jEWS  )*VOL 

270  CONTINUE 

IF(CHAM2)  GO  TO  320 

CALCULATIONS  WHEN  CHAMBER  IS  ONE  DIMENSIONAL 
300  CONTINUE 

VOL  = AREACd)*DX*0.5 

GAShAS  = (PHIBGd.l)  + PhIBG2dtl)  + PhlBP(ld)  - 2 , 0 ) ♦RH0B6  ( 1 d ) 

1 *V0L 

PROMASsC  d.O-PHIBGdtl)  ) ♦RH0P+ ( 1 . -PHIBG2  ( 1 . 1 ) ) *KHOPP+ ( 1 , -PHIBF  ( 1 d 
1 ) )*DPUENS)*VOL 

DO  310  1=2«NGX 

VOL  = AREAC(I)*UX 

IFd.EQ.N&X.AND.I\JX.E0.1)V0L=(  VOL*(  ( DXPRIM-DX  ) /2 . 0 ) /DX  ) 

GAShAS  = GAShAS  + (PHIBG(Id)  + PHIBG2(Itl)  + PHIBP(I,1)  - 2,0 
1 )*KHObG(lfl)*VOL 

PROhAS=PROMAS+( ( 1 . -PHIBG d . 1 ) ) *RHOP+ ( 1 . -PHIBG2 ( I d ) )*RH0P2+ 

$ (1.0  - PHiBPd.l)  )»BPUENS  )*VOL 
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310  CONTINUE 

BARREL  CALCULATIONS 
320  CONTINUE 

IF(NX  .EO.  1)  bO  TO  360 

VOL  = B0REA*DX 

VOLKOP  = VOL^RhOP 

IFINX  .LQ.  2)  GO  TO  3<f0 

NXl  = NX  • 1 

00  330  1=2*NXI 

PHI(I)=PHI(I)+PhI2(I)-1.0 

6ASKAS  = GASi'IAS  * PHI  ( I ) *KH06  ( I ) *VOl 
PROMAS  = PROMAS  + (1.0  - PHI ( I ) ) ♦VOLROP 
PHI t I)=PHI( I )-PHI2(I )+1.0 
330  CONTINUE 

340  CONTINUE 

VOL  s B0REA*(DXPR1M  - 0,b*UX) 

VOLROP  = VOL*RHOP 
PHI ( NX ) =Ph I ( NX ) ♦PHI2 ( NX ) -1 . 0 
GASMAS  = GASPAS  4 PHI (NX ) *RH0G (NX ) *VOL 
PROMAS  = PROPAS  ♦ (1,0  - PHI ( NX ) ) *VOLROP 
PHI (NX)=PHl (NX)-PHI2(NX)+1.0 

360  IF(PRI1  .AND.  10EbUG(20))  WRITE(6«2011 ) GASPAS , PROPiAS 

ADJUST  DENSITIES 
ACTbAS  = TUTP  - PROHAS 
ADJUST  = ACTGAS/GASPAS 
DO  370  Jsi.NGK 
DO  370  I = 1.IMGX 

RH0BG(I«J)  = i'HOBG(l,J)*AOJUST 
370  CONTINUE 

DO  380  Is2«NX 

RHOb(I)  = HHOG( I )*AUJUST 
360  CONTINUE 

IF(PRI1  .aNU.  lUEfaUb(20))  WR I TE ( 6 , 2013 ) ACTGAS . ADJUST 


j$^i^t*ni**m*****m*************************)H**************************4**** 


KEEP  A RUNNING  SUM  OF  DOTMB.DUTMP,  AND  PMUOT  TERMS  AND 
DETERMINE  GAS  CONSTANTS  ON  THE  BASIS  OF  THESE 


$fm********** ***********************************  ************  ************ 


SUMBsCUMMP+CUMSP+CUMBP 
1F(SUMB.LE.(;.0)  GO  TO  460 
FRSPsCUMSP/SUMR 
FRMPsCUMMP/SUMb 
FRBP=CUPiBP/SUhB 


169 


AO=FRSP*AOSH  + f RMP*AOMP+FKBP*AOBf' 

Al=FRSP*AlSP+FRMP*AlMP+FRBP*Al8P 
A2=:FRSP*A2SP  + FRI*1P*A2MP+FRBP*A2bP 

A3=FRSP*A3SP+FRMP*AiMP+FRbP*A3BF  | 

UMOLE=FRSP*hir^SP+FKMP*WMMP  + FRBP*WHBP  \ 

GAhlB=FRSP*GAMSP+FRiiP*GAMMP+FRBP*GAMBP  t 

•feo  CONTINUE  ! 

IF(PRIl.AN0.IDEbUG(21)  ) WRITE ( 6 . 2012 ) CUMbP . CUMMP f CUPBP « 

$ A0«Al«A2«A3f GANiBiUnOLE  i 

Cif:im******************^***m***m****>^********************^HLtii*>tint**********>t  \ 

C GET  READY  FOR  THE  NEXT  TIME  INTERVAL 

c*******************  ****  *i(****  *****************************  ******  4 |j 

C !i 

500  CONTINUE  f, 

c 1; 

C CLEAR  arrays  D01MI6  AND  OOTNBG  FOP  SUBROUTINE  MFLOW,  ARRAY  COTPF  ji 

C FOR  PKIMEKt  ARRAY  OBAG  FOR  PRf'FlR,  ARRAY  OOTilB  FOP  REGReS»  AND  :i 

C ARRAY  UPBDT  FOR  PRPVEL.  i 

CALL  CLEAR(  DOTMIG ( 1 ) t QBAG < G0«5))  H 

CALL  CLEAR!  DOTMB ( 1 t 1 )« UPBDT ( 60,5))  | 

CALL  CLEAR(DOTMBG(i) ,DOTMP(60,5) ) j 

C 

C i 

C CLEAR  array  PHDOT  FOR  SUBROUTINE  DIMIM,  ARRAY  QL  FOP  BNdLYR, 

C ARRAY  UDRAG  FOP  RHOUH,  AND  ARRAY  UUP  FOR  PROPMO, 

CALL  CLEAR(P«OOT(l) , UUP(IOO)) 

P11=PCH(1,1)/1A4.0 

P12=PCH(1,2)/144,0 

PN1=PCH(N&X,1 )/144.U 

)N2=PCH(NGX,2)/144,0 

PbN=Pb(NX)/144.0 

PT1SPT2 

PT2=PT3 

PT3=PT4 

PT4=PT5  , 

PT5=PT6  1 

PT6=PT7 

PT7=PTe  1 

PTe=Pf9  I 

PT9=P12  ’ 

IFCPTb.LT, 1000.0)  GO  TO  737  j 

IF ( PT5. GT, PTl. AND. PT5.GT.pt 9. and. iDEBUG( 34) ) WRITE ( 6 , 2015 ) IPR I^ T , j 

•TIME,PT5  I 

737  CONTINUE  \ 

XPPP  s (XP  - XOb)*12.0 
I24  = I24-fl 
II24=:MOD(I24,10) 

IF(IDLBUG(24) .AwD.II24.EQ.0)WRITE(6,2015) IPRINT,TIME,P11, 

1 PX2»PN1,PN2»PGN«XPPP,VP  I 

c 1 

RETURN 


J 
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2001  FORMAT  (/»2lb«  7 (2X.Lm.6)  ./.10Xf7(2XtFl‘+.e)  . / » 1 OX  . 7 ( 2X  , F14 . 6 ) , / . 12X 
1 t Lm.0i2X,Ll4.ti) 

2003  F0HMAT(//,'  IPKIhl  = '*16, 

$ /,'  Tir'iL  =»tE14,e,//,3X.*l',4Xi*J*.6X.'PHlB&*«llXt  1 

1 *KHObG*  ,l.;x.  ’UBG'  »13X.  'Vl.G*  . 13X  t • HBG  • , 1 3X  . ‘IBG*  «13X  , ‘FCH*  , ? 

2 /tlbXt 'PhiHP' »11X. 'UPB* ,13X . MZC* il3X, 'uBAG*  »11X. ’XORAG' ,11X  t 

3 ♦L0lMB*.llXt*L(0rMP*«/»15X,4pHIBG2*tl0X«»TBP  ♦ » 14X  » ^XL*  1 14X  * ♦DO* 

4 .14X»*Dl»il3X.*XL2*tl3X,*liC2*t/»16X»*|jl2*)  : 

20  04  format ( /// ,3X» • 1 • t aX , * PHI • . 1 3X t ‘RHOG*  «l3Xt 'UG*  « 14Xt ’hG* . l4Xt  ) 

1 ‘TG*  tl4X,  ‘Pb*  ,14X»  'UP*  ,/,29Xi  ‘til.*  ,12X»  'UORAG*  t llX  t 'PMOOT  • » 

2 IIX. ‘AMASb* , 12X. 'AMOM* tllXi ♦AENLR* t 
3/»10Xt*PHl2-».l2X.*XLB*.13Xt  ♦LjOB*«13Xt*DlB».l3Xt*XLB2*» 
412X»#D0B2**i2X.*DlB2*) 

2005  F0RMAT(//,Ib,7(2X,L14.«> . / . 21X i 6 ( 2X « E14 .8 ) , / , 5X , 7 ( PX » El4 . 8 ) ) 

2008  FOPMATCI  at  TIME  ‘.Els. 7.*  THE  CHAMBER  WAS  MADE  1-DIMEKSIONa  J 

$L*)  (I 

20  0 7 format  (////,  3X.  • I • . faX  . • PHIBG  • » 1 IX  t •RHOBG*  »l2Xi  ‘UBG*  tl3Xt  ’HBO*  , |j 

$ 13Xf»TBG*»13X.*PCH*<13X.*UPB*t/ »10X«*PHlBG2*tl2X»*XL*»14Xt*CC*t 

$ lHXt*01*«l3Xi*XL2*«13X«*t)02*f  15X«*DI2*) 

2008  FORMAT(/I5i7(2Xit  14.8)  ,/*7X,E14.8.8(2X.E14.8)  ) 

2009  F0RMAT(//,‘  IPRlrjT  = 'tlB)  jj 

2010  FUPMATC  LOGIC  FOR  SUMMING  GAS  MASS  Aup  PROPELLANT  MASS  HAS  XCT  B fj 

SEEN  WRITTEN  FOR  CHAMl  TRUE')  jj 

2011  formatc  the  Mass  of  gas  in  the  system  is*  »F10.4»//. 

$ • the  mass  of  propellant  anu  black  powuek  in  the  system  IS*»  j: 

5 Flo. 4)  li 

2012  F0RMAT(//,*  CUMSP  = ♦«Fl0.4,*  CUMMP  = ♦,F10.4.*  CUMbP  = *»  jj 

SF10.4t//i*  FOR  THE  NEXT  INTERVAL  AO  = *.£10. 4.*  Al  = ♦«  [| 

SE10.4»*  A2  = *.L10.4.*  A3  = ♦,  E10.4t*  GAMIB  =:  ♦,F10.4.  I] 

$ ♦ WMOLE  = ♦tF10.4t/)  1; 


2013  format (*  actual  GAS  IN  THE  SYSTEM  lS*i  F10.4, 
S • ADJUSTING  FRALTION  1S',F10.4»/) 


2014 

2015 

2016 

FORhAT(lH0t*PKESSUKE  AT  GRID  (1.1)  IS*. 
F0FhAT(2X.  15*  3X.  8(El3.fa.2X)) 
FORMAT(//.*l  negative  PRESSURE  . ENT  FiALpY 

E20 

OK 

.10) 

DENSITY 

detected 

BY 

UpD 

1 

2017 

.ATE  IN  the  chamber*) 

F0RMaT<//.*1  negative  pressure. enthalpy 

GR 

UENSITY 

DETECTED 

BY 

UPD 

i: 

1 

.ATE  IN  THE  uARREl*)  i 

2019  FORMAT(10Xt*l*t9X,*NX*,4X,*IPKlNT*tlOX**VP*«13X»  S 

♦ ♦XP»»13X«*UX*tllXt*UELT*)  j 

2018  FORMAT(PX,3I10,4Elb.6)  | 

END  n 
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APPENDIX  C 

REQUIRED  INPUT  AND  OUTPUT 

A^ REQUIRED  INPUT 

The  input  quantities  for  the  computer  code  are  read  in  with  five 
separate  statements.  The  first  quantity,  IDEBUG,  is  read  in  with  an  L format 

where  card  spaces  1 through  35  are  marked  with  either  a T or  an  F to  denote 

various  output  displays.  The  other  four  quantities  are  read  in  with  a NAMELIST 
format.  The  first  of  these,  called  M0DS,  contains  two  items  that  are  used  to 

regulate  the  time  and  space  intervals  of  the  primary  program  output.  The 

second  group,  called  CHINP  (for  chamber  input),  contains  those  inputs  required 
to  perform  all  calculations  in  the  gun  chamber  and  is  called  from  subroutine 
CHSET.  The  third  group,  called  BPINP  (for  black  powder  input),  reads  in  all 
input  required  to  load  black  powder  into  the  primer  tube  and  is  called  from 
subroutine  BPINIT.  The  last  group,  called  BARINP  (for  barrel  input),  contains 
those  additional  inputs  required  to  perform  the  barrel  calculations  and  is 
read  in  from  subroutine  BARSET.  This  appendix  gives  a description  of  all  the 
required  input  quantities  and  a value  used  to  represent  the  M2A2  105mm  howitzer 
with  the  M67  propelling  charge  loaded  with  special  lot  PAD-PE-490-1-F,  at  Zone 
7 with  the  Ml  projectile.  The  computed  peak  pressure  and  muzzle  velocity  for 
these  conditions  are  46200  psi  and  1603  ft/sec.,  respectively. 

OUTPUT  SELECTION  - IDEBUG 

IDEBUG  A logical  variable  array  with  a dimension  of  35 

that  is  used  to  specify  which  output  is  to  be  dis- 
played for  a given  computer  run.  If  IDEBUG(K)  is 
TRUE,  the  Kth  block  of  output  will  be  displayed  (see 
B.  OUTPUT). 

OUTPUT  CONTROL  - NAMELIST  M0DS 

M0DCH  The  number  of  time  step  intervals  between  normal  data 

printouts.  A value  of  100  has  proved  satisfactory  for 
most  computer  runs  where  a fairly  detailed  history  of 
all  flow  parameters  is  desired. 
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J 


A 


M0DGR 


CHAMBER 

AOBP 

AIBP 

A2BP 

A3BP 


AOMP 

AIMP 

A2MP 

A3MP 


I 

j 


AOSP 

AISP 

A2SP 

A3SP 


The  number  of  I intervals  between  print  locations. 

A value  of  4 will  result  in  data  printout  for  I = 

1,  4,  8,  12,  16,  and  20,  for  all  values  of  J. 

INPUTS  - NAMELIST  CIJINP 

The  co-volume  curve  fit  coefficients  for  black  powder, 
for  the  equation  of  state 

3 

where  the  co-volume  in  units  of  in  /Ibm,  is  given 

by  7 3 

= Ao  -*■  Alp  Ai-p  Asp 

The  values  used  for  these  terms  are: 

AOBP  = 15.0  in^/lbm 
AIBP  = 0.0 

A2BP  = 0.0 

A3BP  = 0.0 

The  co-volume  curve  fit  coefficients  for  multiperf 
propellant  for  the  equation  of  state  given  above.  The 
values  generated  by  the  BLAKE  code  for  special  lot  F 
are : 

AOMP  = 33.579  in^/lbm 
AIMP  = -26.083 
A2MP  = 20.755 
A3MP  =-20.301 

The  co-volume  curve  fit  coefficients  for  single  perf 
propellant  for  the  equation  of  state  given  above.  The 
values  generated  by  the  BLAKE  code  for  propellant  lot 
68108  are: 

AOSP  = 34.192  in^/lbm 
AISP  = -25.578 
A2SP  = 16.500 
A3SP  = -16.214 
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AGEN, 

AGEN2 


AGENBP 


ALPHA 


ALPHBP 


BETA 


BGEN 

BGEN2 


BGENBP 


The  "A"  term  in  the  propellant  burning  rate  equation 

r = (/\r.  + ej  CJ. 

In  this  expression,  p is  in  psi,  T^  in  “R,  and  r is  in 
in/sec.  AGEN  is  input  fc  the  multi-perf  reference 
propellant  and  AGEN2  for  the  single-perf  reference 
propellant.  Temperature  dependence  was  not  used  for 
Ml  propellant,  and  this  term  was  set  equal  to  zero. 

Pressure  coefficient  for  black  powder  bum  rate.  TTiis 
term  was  also  set  equal  to  0.744. 

The  thermal  diffusivity  of  the  propellant.  This 
quantity  is  assumed  not  to  differ  significantly  bet- 
ween the  various  propellants.  A value  of  1.0  x 10  ^ 

2 

ft  /sec  was  assumed  for  the  checkout  calculations. 

The  thermal  diffusivity  for  black  powder.  This  quan- 

“6  2 

tity  is  assumed  to  be  1.0  x 10  ft  /sec,  the  same  as 
for  Ml  propellant. 

A parameter  that  is  required  to  maintain  a stable 
finite  difference  solution  to  the  differential  equa- 
tions of  fluid  motion.  A value  of  0.5  is  known  to  work 
satisfactorily,  but  values  up  to  1.0  may  work  under 
certain  conditions.  BETA  is  directly  proportional  to 
the  time  interval  between  calculations  and  therefore 
inversely  proportional  to  the  machine  time  required 
for  the  calculation. 

The  "B"  term  in  the  propellant  burning  rate  equation 

_2 

(see  AGEN).  A value  of  0.280  x 10  was  generated  by 

closed  bomb  tests  for  BGEN,  the  multiperf  propellant, 

-2 

and  0.214  x 10  was  assumed  for  BGEN2,  the  single  perf 
propellant. 

Constant  value  for  black  powder  burn  rate.  This  term 
was  set  equal  to  0.0. 


174 


B0RED 


BPDENS 

BO 

B1 

B2 

B3 

B4 


BPRADO 


CA 

CGEN 

CGEN2 


CHAM2 


CHAM3 


CHWT2(  ) 


Cl 

C2 


Average  barrel  diameter,  taking  lands  and  grooves 
of  the  rifling  into  account,  = 4.168  in. 

Black  powder  granule  density,  = 1.75  gm/cc. 

Coefficients  to  regression  equation  that  expresses 
bed  density  in  terms  of  physical  grain  parameters, 

= 3o  -f-  B!  • Xio  + 3Z.  • Do  + B5  Jo  + Ba-' nper^ 

The  values  for  these  coefficients  have  yet  to  be 
evaluated  and  are  set  to  zero,  except  BO,  which  is 
set  equal  to  45.0. 

Initial  effective  radius  of  black  powder  granules 
assuming  a spherical  configuration,  = 0.03  in. 

Flow  coefficient  for  igniter  tube  and  "pseudo"  holes, = 

0.8. 

The  "C"  term  in  the  burning  rate  equation  (see  AGEN) , 
set  equal  to  zero  for  Ml  propellant  because  of  inadequate 
temperature  dependency  information. 

Logical  variable  set  .TRUE,  when  the  chamber  grid 
matrix  consists  of  two  parallel  one-dimensional  net- 
works. Otherwise,  it  is  set  .FALSE.  For  105mm  howitzer 
this  is  normally  set  .TRUE. 

Logical  variable  set  .TRUE,  when  the  chamber  grid 
matrix  consists  of  three  parallel  one-dimensional  net- 
works. Otherwise  it  is  set  . FALSE.  Normally  set 
FALSE  for  105mm  howitzer  simulations. 

Array  of  propellant  charge  weight  for  each  of  the  7 
zones  of  the  M67  charge,  set  equal  to  0.5175,  0.0875, 
0.168,  0.231,  0.323,  0.538,  and  0.880. 

Constants  in  Sutherland's  equation  for  viscosity  in 
Ibm/ft-sec.  Cl  = 0.7535  x lO'^;  C2  = 262.5. 
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C3 

C4 


DIAMBT 

DIAMl 

DIAM2 

DISl 


DIO 

DI02 

DIFFPR 

DIRl 

DIR2 

D0O 

D0O2 

D0R1 

D0R2 


Constants  in  Sutherland's  equation  for  thermal  conduc- 
tivity in  Btu/ft-sec-°R.  C3  = 0.291  x 10  ^ ; C4  = 
170.1. 

Inside  diameter  of  the  igniter  tube,  equal  to  0.387  in 

Chamber  dimensions  as  defined  by  the  following  sketch: 
DJ5J  — ^ 


DIAMl  = 4.178 
DIAM2  = 4.178 
DISl  = 11.16 


Multi-perf  propellant  grain  minor  or  perforation  diameter, 
equal  to  0.0220  in.  for  Ml  propellant,  lot  F. 

Single-perf  propellant  grain  minor  or  perforation  dia- 
meter, equal  to  0.0187  in.  for  Ml  propellant  lot  681-08. 

Differential  pressure  required  to  cause  the  primer  tube 
liner  to  fail,  assumed  equal  to  1000  psi. 

Perforation  diameter  for  multi-perf  reference  propellant, 
assumed  equal  to  0.0220  in. 

Perforation  diameter  for  single-perf  reference  pro- 
pellant, assumed  equal  to  0.0198  in. 

Multi-perf  propellant  grain  major  or  exterior  diameter, 
equal  to  0.142  in.  for  Ml  propellant  lot  F. 

Single-perf  propellant  grain  major,  or  exterior  diameter, 
equal  to  0.0467  in.  for  Ml  propellant  lot  68-108. 

Exterior  diameter  for  multi-perf  reference  propellant, 
assumed  equal  to  0.142  in. 

Exterior  diameter  for  single-perf  reference  propellant, 
assumed  equal  to  0.0467  in. 
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EXPBP 

GAMBP 

GANWP 

GAMSP 


HBP 


HMAX 


HMB 

HMB2 


NGR 


NGX 


Black  powder  burn  rate  pressure  exponent,  = 0.24. 

Values  of  I.B.  GAMMA  as  generated  by  the  BLAKE  code 
for  black  powder,  multiperf  propellant,  and  single 
perf  propellant,  respectively.  The  value  for  black 
powder  was  estimated  at  1.08  from  closed  bomb  data 
while  the  BLAKE  code  generated  values  of  1.257  for  the 
multiperf  propellant  lot  F and  1.261  for  the  single- 
perf  propellant  lot  68-108. 

Heat  of  combustion  of  black  powder,  assumed  equal  to 
1375  Btu/lbm. 

An  approximate  estimate  of  the  maximum  enthalpy  to 
be  encountered.  This  is  used  with  BETA  to  determine 
a stable  time  interval  for  calculation.  A value  of 
1500  Btu/lbm  is  good  for  the  expected  range  of  calcula- 
tions . 

The  energy  added  by  burning  propellant.  HMB  represents 
the  multiperf  propellant,  1586  Btu/lbm  for  lot  F, 
and  HMB2  represents  the  single  perf  propellant,  1531 
Btu/lbm  for  lot  68-108.  These  values  were  generated 
by  dividing  the  BLAKE  code  generated  output  parameters 
of  impetus  (ft-lbf/lbm)  by  [(I.B.  GAMMA  - 1.0)  times 
778  (ft-lbm/Btu] . The  actual  numbers  were  selected 
from  equilibrium  calculations  for  these  propellants 
at  45000  psi,  close  to  the  peak  pressure  generated 
experimentally  by  lot  F. 

Number  of  radial  grids  in  the  chamber  matrix.  This 
number  must  coincide  with  the  matrix  selected  by  CHAM2, 
or  CHAM3.  Currently,  this  number  can  be  3.  Set  at 
2 or  3,  with  2 being  used  normally. 

Number  of  axial  grids  in  the  chamber  matrix.  This 
number  cannot  exceed  59,  which  is  one  less  than  the 
number  currently  allocated  the  variables  in  common 
storage.  8 grids  were  used  in  the  standard  run. 
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NH0LES 


NPERF 

NPERF2 

NR0WH 

PEXP 

PEXP2 


PO 

RADH0L 


RFl 

RF2 

RH0P 


RH0P1R 

RH0P2R 


Array  giving  the  number  of  holes  in  a circumferential 
row  on  the  igniter  tube,  a row  being  defined  as  all 
the  holes  with  the  same  axial  position  on  the  tube. 

The  M28  primer  tube  has  2 holes  at  each  axial  position 
and  NH0LES  is  filled  with  22  * 2,  63  * 0,  to  fill  up 
the  entire  array  of  85  potential  rows. 

Number  of  perforations  in  the  multi -perf  grains  of  the 
main  charge.  The  Ml  propellant  used  in  the  105mm 
howitzer  has  7 perforations. 

Number  of  perforations  in  the  single-perf  grains,  equal 
to  1. 

Number  of  rows  of  holes  in  the  igniter  tube,  equal  to 
22  for  the  105mm  howitzer. 

Pressure  exponent  to  the  propellant  burn  rate  equation 
(see  AGEN)  with  PEXP  equal  to  0.715  for  lot  F as 
generated  by  a closed  bomb  test  and  PEXP2  assumed 
equal  to  0.71  for  lot  68-108. 

Initial  pressure,  - 14.7  psi. 

Igniter  tube  hole  radius  array,  equal  to  0.1875  in. 
for  the  M28  primer  tubes.  The  entire  array  is  filled 
oy  22  * 0.065,  63  * 0.0. 

Relative  force  for  multi-perf  (1)  and  single-perf  pro- 
pellants (2),  assumed  equal  to  1.0  for  the  standard  run. 

Grain  density  of  Ml  propellant  where  RH0P  designates 

3 

the  Lot  F multi-perf  propellant  equal  to  97.7  Ibm/ft 
for  lot  68-108  and  RH0P2,  single-perf,  equal  to  97.5 
Ibm/ft^. 

Reference  propellant  density,  RH0P1R  representing  multi- 
perf  propellant  and  RH0P2R  single-perf  propellant,  equal 

3 

to  97.7  and  97.5  Ibm/ft  respectively. 
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RQl 

RQ2 


TF 


TIGN 


TIGNBP 


TW 

TO 


UO 


WMBP 

WMMP 

WMSP 


XCL 


XK 


XKBP 


Relative  quickness  for  multi-perf  (1)  and  single-perf 
(2)  propellants,  assumed  equal  to  1.0. 

Time  extent  of  the  calculation.  This  provides  an 
alternate  method  to  terminate  a computer  run.  A value 
of  0.05  sec.  is  sufficient  for  most  runs. 

Propellant  grain  surface  ten^jerature  at  which  ignition 
occurs,  assumed  ft^800®R  for  Ml  propellant. 

Ignition  temperature  for  black  powder,  assumed  equal 
to  1100“R. 

Initial  temperature  of  gun  surface,  equal  to  535°R. 

Initial  temperature  of  the  gas  and  propellant  grains, 
SSS^R. 

Initial  gas  velocity  in  the  axial  direction,  equal  to 
0.0  ft/sec. 

Values  for  molecular  weight  of  combusted  black  powder, 
multiperf  propellant  and  single-perf  propellant,  res- 
pectively. The  following  values  were  assigned  to 
these  terms: 

WMBP  = 75  (estimated  from  closed  bomb  data) 

WMMP  = 22.33  (BLAKE  code  for  lot  F) 

WMSP  = 21.97  (BLAKE  code  for  lot  68-108) 

Array  that  specifies  the  axial  position  of  M28  primer 
tube  holes  with  respect  to  the  breech.  It  is  specified 
as  the  location  of  the  first  hole  and  the  distance 
between  adjacent  holes.  The  program  inputs  are  XCL  = 
1.535,  21  * 0.375,  63  * 0.0  for  the  105mm  howitzer, 
with  all  distances  given  in  inches. 

Thermal  conductivity  of  a grain  of  propellant,  assumed 
equal  to  0.2  x 10  ^ Btu/ft-sec-®R. 

Thermal  conductivity  of  black  powder,  assumed  equal  to 
0.2  X 10  ^ Btu/ft-sec-*R. 
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.-/A 


XLBEL 


d 


XLO 

XL02 

XLRl 

XLR2 


Length  of  the  primer  tube,  equal  to  9.64  in. 

Average  initial  multi-perf  propellant  grain  length, 
equal  to  0.318  in.  for  Ml  propellant  lot  F. 

Average  initial  single-perf  propellant  grain  length, 
equal  to  0.199  in.  for  Ml  propellant  lot  68-108. 

Average  initial  multi-perf  reference  propellant  grain 
length,  equal  to  0.318  in. 

Average  initial  single-perf  reference  propellant  grain 
length,  equal  to  0.199  in. 


BLACK  POWDER  INPUTS  - NAMELIST  BPINP 


BEGTC  Axial  position  of  the  beginning  of  the  black  powder 

primer  charge,  assumed  equal  to  0.0  in. 


CHTC  Black  powder  charge  weight  equal  to  0.206  oz. 

XLTC  Length  of  the  black  powder  primer  charge,  equal  to 

9.6  in. 

BARREL  INPUTS  - NAMELIST  BARINP 

CF  Coefficient  of  friction  between  projectile  rotating 

band  and  the  barrel  in  theory  but  acts  as  a coefficient 
that  links  projectile  acceleration  forces  to  barrel 
resistance.  Assumed  equal  to  zero. 

PDMAX  Equivalent  reactive  pressure  experienced  when  the 

rotating  band  is  finished  being  engraved,  assumed 
equal  to  0.0  psi  (see  sketch  following  page). 

FINER  Projectile  moment  of  inertia  - approximately  equal  to 

0.0172  lb  ft/sec^-ft. 


PINT  Intermediate  resistive  pressure  (see  sketch  on  following 

page)  assumed  equal  to  0.0  psi. 
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PL0 


Ik 


PMASS 

PZO 

RADPB 


Final  resistive  pressure  (see  sketch  below)  equal  to 
0.0  psi. 

Projectile  mass,  equal  to  33  lbs.  for  the  Ml  projectile. 

Initial  or  shot  start  pressure,  assumed  equal  to  1000 
psi  (see  sketch  below) . 

Effective  radius  of  the  projectile  cross-section  upon 
which  the  pressure  acts,  equal  to  2.089  in. 


WpB  Width  of  the  obturator,  or  rotating  band,  equal  to 

0.8  in.  (see  sketch  below). 

XINT  Distance  from  the  origin  of  rifling  at  which  PINT 

acts,  assumed  equal  to  5.0  in.  (see  sketch  below). 

XLBAR  Total  effective  length  of  the  barrel  equal  to  78  in. 

for  the  M2A2  105mm  howitzer.  This  should  be  increased 
to  82  in.  to  account  for  the  total  travel  during 
which  the  pressure  force  acts  on  the  projectile. 

XL0  Distance  from  the  origin  of  rifling  at  which  PL0 

acts,  assumed  equal  to  20  in.  (see  sketch  below). 


B. 


OUTPUT 


The  complete  program  output  consists  of  several  initial  NAMELIST 
and  array  printouts  and  the  primary  output  from  the  grid  matrix  during  the 
run.  The  amount  of  output  is  regulated  through  the  logical  input  array,  IDEBUG 
and  the  print  frequency  of  many  items  is  controlled  by  input  M0DCH  in  NAMELIST 
M0DS.  This  variable  provides  optional  display  of  the  following  groups  of 
output : 


IDEBUG  (1)  Printout  of  those  quantities  input  to  the  program  through 
NAMELIST  M0DS. 


(2)  Printout  of  those  quantities  input  to  the  program  through 
NAMELIST  CHINP. 


(3)  Printout  of  initial  porosity  arrays,  PHIBG  and  PHIBP. 

(4)  Printout  of  N.AMELIST  CHKIN  which  lists  many  converted  quantities 
and  computed  parameters  in  the  units  that  are  used  in  the  pro- 
gram from  subroutine  CHSET. 

(5)  Printout  of  the  IPATH  array,  that  governs  the  logical  flow 
through  the  sequence  of  finite  difference  subroutines. 

(6)  Printout  of  chamber  grid  cross-sectional  area  arrays. 

(7)  Printout  of  those  quantities  input  to  the  program  through 
NAMELIST  BARINP. 

(8)  Printout  of  NAMELIST  BARCHK  which  lists  many  converted  quantities 
and  computed  parameters  in  the  units  that  are  used  in  the  pro- 
gram for  subroutine  BARSET. 

(9)  Printout  from  subroutine  BPFIR  that  states  the  time  and  indices 
of  a grid  when  the  black  powder  in  that  grid  becomes  ignited. 

(10)  Printout  from  subroutine  PRPFIR  that  states  time  and  grid  indices 
upon  propellant  ignition  in  that  grid. 

(11)  Printout  from  subroutine  PRPFIR  that  states  time  and  grid 
indices  upon  ignition  of  propellant  under  the  influence  of  the 
holes  in  the  igniter  tube. 


182 


r 

1 

1 

2 (12)  Printout  of  the  time  interval  number,  IPRINT,  and  the  revised 

! number  of  grids  in  the  chamber,  NGX,  when  subroutine  NEWDX  is 

' called. 

(13)  Printout  of  NAMELIST  NEWCHK  from  subroutine  NEWDX  that  displays 
conputational  parameters  that  were  changed  as  a result  of 
changing  the  grid  size. 

(14)  Printout  of  the  revised  chamber  grid  area  arrays,  AREAGP, 

AREAR,  AREAC,  and  AREAG,  from  subroutine  NEWDX  after  the  grid 
matrix  size  is  reduced. 

(15)  Printout  of  all  variables  for  the  chamber  grid  matrix  at  time 
intervals  specified  by  M0DCH  and  space  ntervals  specified  by 
M0DGR.  A sample  printout  is  shown  at  the  end  of  /^pendix  C. 

(16)  Printout  of  NAMELIST  DOT  from  subroutine  UPDATE  that  includes 
the  arrays  DOTMIG,  DOTMBG,  and  TZR,  shown  at  the  end  of  Appen- 
dix C. 

(17)  Printout  from  UPDATE  of  the  time  and  time  interval  number  at 
which  the  multiple  one-dimensional  grid  network  was  reduced  to 
a single  one-dimensional  network. 

(18)  Printout  from  UPDATE  of  variables  from  the  chamber  grid  matrix 
after  it  has  been  reduced  to  a one-dimensional  network. 

(19)  Printout  of  all  variables  from  the  barrel  grid  matrix  at  time 
intervals  specified  by  M0DCH.  A sample  printout  is  shown  at 
the  end  of  Appendix  C. 

(20)  Printout  of  statements  regarding  the  masses  of  propellant  and 
gas  that  actually  exist  or  were  loaded  into  the  system  and  those 
.that  are  computed  by  summing  over  all  the  grids  in  the  system 

I 

and  multiplier  applied  to  the  computed  mass  of  gas  to  make  the 
computed  mass  equal  the  actual  mass,  printed  from  subroutine 
UPDATE.  A sample  printout  is  shown  at  the  end  of  /^pendix  C. 
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(21)  Printout  from  UPDATE  of  cumulative  amount  of  propellant  and 
black  powder  burned  in  chamber  and  barrel  and  the  revised  gas 
constants  based  on  an  average  of  black  powder  and  propellant 
properties  according  to  the  amount  of  each  in  the  system  at 
time  intervals  regulated  by  M0DCH.  A sain)le  printout  is  shown 
at  the  end  of  Appendix  C. 

(22)  Printout  from  UPDATE  of  pressure  PCH  (1,1)  at  intervals  regulated 
by  M0DCH. 

(23)  Printout  from  subroutine  MOTION  of  projectile  motion  variables 
at  intervals  regulated  by  M0DCH  and  the  time  the  projectile 
passes  from  the  barrel. 

(24)  Printout  from  UPDATE  of  certain  pressures  in  addition  to  pro- 
jectile displacement  and  velocity  and  the  time  interval  of  the 
printout.  This  occurs  every  ten  intervals  and  is  not  regulated 
by  M0DCH.  The  items  printed  out  do  not  have  a heading  but 
occur  as  follows: 

TIME,  IPRINT,  PCH(1,1),  PCH(1,2),  PCH(NGX,1)  PCH(NGX,2),  PG(NX), 
XP,  VP. 

(25) 

to  Not  used  at  present. 

(29) 

(30)  Printout  from  subroutine  BPINIT  of  certain  parameters  pertaining 
to  initial  black  powder  distribution  calculations  performed 

in  that  subroutine. 

(31)  Printout  from  CHSET  that  gives  initial  amounts  of  propellant 
and  black  powder  in  the  system  as  calculated  from  porosity. 

(32)  Printout  from  DETPHI  that  gives  charge  lengths,  first  and  last 
grids  containing  propellant  and  other  information  used  in  deter- 
mining propellant  porosities. 

(33)  Printout  from  MOTION  that  gives  FDPRIM,  the  projectile  resistive 
force,  and  the  calculation  interval  energy  50th  time  interval. 
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(34)  Printout  of  time  and  pressure  (PCH(1,2))  in  the  region  of  the 
peak  pressure. 

(35)  Not  used  at  present. 

f 

f 

The  title  blocks  and  sample  printouts  for  several  of  the  output 

• • 

I options  are  given  below.  The  terms  are  defined  in  y^pendix  C.  The  units  of 

■ these  terms  follow  the  following  rule: 


Velocity 

ft/sec 

Density 

Ibm/ft^ 

Enthalpy 

Btu/lbm 

Pressure 

Ibf/in^ 

Propellant  grain  dimensions 

ft. 

Propellant  burning 

Ibm/ft^ 

Gas  resistance 

psf/ft 

Areas 

ft^ 

Heat  Flux 

2 

Btu/ft  -sec 

Temperatures 

i 

1 
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